viết chương trình in ra màn hình các số có 3 chữ số thỏa mãn điều kện số đó bằng tổng lập phương các chữ số của nó(100a+10b+c=a^3+b^3+c^2)
2 câu trả lời
uses crt;
var a, b, c : byte;
begin
clrscr;
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if (100 * a + 10 * b + c = sqr(a) * a + sqr(b) * b + sqr(c))
then write(a, b, c);
readln
end.
uses crt;
var a,b,c:integer;
begin
clrscr;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if (100*a+10*b+c)=(a*a*a+b*b*b+c*c*c) then write(100*a+10*b+c:4);
readln
end.