Question

Viết phương trình tìm các số X và Y có 3 chữ số sao cho \(\overline{abc}=a^3+b^3+c^3\)

Viết các số thỏa mãn điều kiện trên ra màn hình, các số được cách nhau bởi dấu cách. Trong trường hợp không tồn tại X, Y thì ghi 2 số 0.

Answer 1

Program hotrotinhoc;

var a,b,d,c : integer;

begin

d:=0;

for a:=1 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

begin

writeln(a,' ',b,' ',c);

inc(d);

end;

if d=0 then write('0');

readln

end.