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.