KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
program oken; uses crt; var a,b,c: qword; begin clrscr; write(‘Cac so can tim: ‘); 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 write(a,b,c,’ ‘); readln; end.
uses crt; var a,b,c:longint; begin clrscr; for a:=1 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,b,c); readln end.
program oken;
uses crt;
var a,b,c: qword;
begin
clrscr;
write(‘Cac so can tim: ‘);
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
write(a,b,c,’ ‘);
readln;
end.
uses crt;
var a,b,c:longint;
begin
clrscr;
for a:=1 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,b,c);
readln
end.
///////////////////////////////
Test: