Question

BÀI 8: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ
số thì bằng chính số đó ( abc = a3 + b3 + c3).

giúp mk nhanh vs nhé. thanks nhiều ạ

Answer 1

uses crt;

var i,dv,ch,tr:integer;

begin

clrscr;

for i:=100 to 999 do

begin

dv:=i mod 10;

ch:=i div 10; ch:=ch mod 10;

tr:=i div 100; tr:=tr mod 10;

if (dv*ch*tr)=dv*dv*dv+ch*ch*ch+tr*tr*tr then write(i:6);

end;

readln;

end.