Question

viết chương trình pascal tìm số có 3 chữ số sao cho abc = a^3 + b^3 + c^3

giúp mình với !

Answer 1

uses crt;

var a,b,c:integer;

begin

clrscr;

for a:=100 to 999 do

for b:=100 to 999 do

for c:=100 to 999 do

if a*100+b*10+c=(a*a*a)+(b*b*b)+(c*c*c) then writeln(a,b,c);

readln;

end.