Question

Answer 1

uses crt;

var i,dv,ch,tr,a:integer;

begin

clrscr;

for i:=0 to 999 do 

begin

a:=i;

dv:=a mod 10;

ch:=a div 10; ch:=ch mod 10;

tr:=a div 100; 

if dv*dv*dv+ch*ch*ch+tr*tr*tr=a then write(a:4);

end;

readln;

end.

Answer 2

nghe tui

 khai bào tự viết 

p:=1; k:=1;

 for i:=0 to 999 do 

begin

s=i;

 while s>0 do

 begin

  p:=p+1;

a[p]:=s mod 10;

s:=s div 10;

 if  (p=1) and (a[1]*a[1]*a[1]=i) then begin b[k]:=i; k:=k+1; end;

if (p=2) and (a[1]*a[1]*a[1]+a[2]*a[2]*a[2]=i) then begin b[k]:=i; k:=k+1; end;

if (p=3) and (a[1]*a[1]*a[1]+a[2]*a[2]*a[2]+a[3]*a[3]*a[3]=i) then begin b[k]:=i; k:=k+1; end;

p:=1;

end;

  end;

 for i:=1 to k do 

 write(b[i]);

Answer 3

program tim_so;

uses crt;

var a,b,c:word;

begin

clrscr;

for a:=0 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

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

readln;

end.