Câu1: số hoàn hảo là những số bằng tổng các ước thật sự của nó. Hãy viết chương trình tìm các số hoàn hảo nhỏ hơn 1000 Câu2: Tìm các số trong khoảng t

0 bình luận về “Câu1: số hoàn hảo là những số bằng tổng các ước thật sự của nó. Hãy viết chương trình tìm các số hoàn hảo nhỏ hơn 1000 Câu2: Tìm các số trong khoảng t”

1. Program BT;
   Var i,j,t,k,t1,i1,n : longint;
   Begin
   Write (‘a,Cac so hoan hao la : ‘);
   t := 0;
   t1 :=0;
   For i := 0 to 1000 do
   Begin
   For j := 1 to i-1 do If i mod j = 0 then t := t +j;
   If t = i then Write (i,’ ; ‘);
   t := 0;
   end;
   Writeln;
   Write (‘b,Cac so do la : ‘);
   For i1 := 0 to 999 do
   Begin
   n := i1;
   While n <> 0 do
   Begin
   k := n mod 10;
   t1 := t1 + k;
   n := n div 10;
   end;
   If t1*t1*t1 = i1 then Write (i1,’ ; ‘);
   k := 0;
   t1 := 0;
   end;
   end.

   Bình luận