Program Tim_So;
Uses crt;
Var i,j,k:integer;
Begin
Clrscr;
Writeln(‘CHUONG TRINH TIM SO:’);
For i:=1 to 9 do
For j:=0 to 9 do
For k:=0 to 9 do
if (100*i+10*j+k)=(i*i*i + j*j*j + k*k*k) then
Writeln(i,j,k,’ = ‘,i,’^3 + ‘,j,’^3 + ‘,k,’^3’);

Readln;

End.

Nè bạn ơi !!!

Giả sử abc¯¯¯¯¯¯¯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.

Bạn xem đúng chưa !!!