Tím các số có ba chữ số biết số đó bằng tổng lập phương các chữ số của nó. Viết chương trình

0 bình luận về “Tím các số có ba chữ số biết số đó bằng tổng lập phương các chữ số của nó. Viết chương trình”

1. Program Tim_So;
   Uses crt;
   Var i,j,k:integer;
   Begin
   Clrscr;
   Writeln(‘CHUONG TRINH TIM SO:’);
   For i:=1 to 9 do
   For j:=0 to 9 do
   For k:=0 to 9 do
   if (100*i+10*j+k)=(i*i*i + j*j*j + k*k*k) then
   Writeln(i,j,k,’ = ‘,i,’^3 + ‘,j,’^3 + ‘,k,’^3’);

   Readln;

   End.

   Bình luận

2. Nè bạn ơi !!!

   Giả sử abc¯¯¯¯¯¯¯abc¯ (0 <= a, b, c <= 9) là số Amstrong, ta cần tìm a, b và c thỏa mãn:
   100a + 10b + c = a³ + b³ + c³. Chương trình như sau:
   Program Amstrong;
   var a, b, c: integer;
   begin
   writeln( ‘ cac so Amstrong trong khoang tu 0-999 la’);
   for a:= 0 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 writeln(a*100 +b*10 +c);
   readln;
   End.

   Bạn xem đúng chưa !!!

   Bình luận