Hãy viết chương trìn tìm 1 số có 3 chữ số thoả mãn số đó bằng tổng lập phương các chữ số đó(abc=a^3+b^3+c^3)

0 bình luận về “Hãy viết chương trìn tìm 1 số có 3 chữ số thoả mãn số đó bằng tổng lập phương các chữ số đó(abc=a^3+b^3+c^3)”

1. Đáp án: 

   Giải thích:

   program baitap;

   var

             a,b,c:integer;

   begin

             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.

   Bình luận

2. program truytim;

   uses crt;

   var i:integer;

         a,b,c:byte;

   begin

   clrscr;

   for i:=100 to 999 do

    begin

     a:=i div 100;

     b:=i div 10;

     b:=b mod 10;

     c:=i mod 10;

     if a*a*a+b*b*b+c*c*c=i then write(i,’  ‘);

    end;

   readln

   end.

   Bình luận