Question

Tìm các số trong khoảng từ 0 đến 999 bằng tổng lập phương các chữ số của nó!

Giải nhanh giúp mình nha!!

Answer 1

Câu 1:
Giả sử \(\overline{abc}\) (0 <= a, b, c <= 9) là số Amstrong, ta cần tìm a, b và c thỏa mãn:
100a + 10b + c = a³ + b³ + c³. Chương trình như sau:
Program Amstrong;
var a, b, c: integer;
begin
writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
for a:= 0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*100 + b*10 +c = a*a*a + b*b*b + c*c*c
then writeln(a*100 +b*10 +c);
readln;
End.