Question

bài 1 : viết chương trình tìm các số trong khoảng từ 0 >999 bằng tổng lập phương các chữ số của nó

vd: 153=1^3+5^3+3^3

Answer 1

program bai1;

var so,a,b,c:integer;

begin

so:= a*100+b*10+c;

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=so then write(so,' ');

readln;

end.

Answer 2

bài này là bài số amstrong nè (số amstrong là số tự nhiên có 3 chữ số và bằng tổng lập phương các chữ số của nó)

uses crt;
var a,x,dv,ch,tr,lp:integer;
begin
clrscr;
for a:=0 to 999 do
begin
x:=a;
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100;
lp:=(dv*dv*dv)+(ch*ch*ch)+(tr*tr*tr);;
if lp=x then write(x,' ');
end;
readln;
end.