viết chương trình in ra các số hoàn hảo trong khoảng a,b với 0<=a<=b;b<2.10^9;a,b nhập từ bàn phím

0 bình luận về “viết chương trình in ra các số hoàn hảo trong khoảng a,b với 0<=a<=b;b<2.10^9;a,b nhập từ bàn phím”

1. @hoctot

   

   Bình luận

2. uses crt;
   var a,b,i,j,t:longint;
   begin
   clrscr;
      write(‘Nhap a,b: ‘);readln(a,b);
      for i:=a to b do
         begin
            t:=0;
            for j:=1 to i div 2 do if i mod j=0 then inc(t,j);
            if t=i then writeln(i);
         end;
   readln
   end.

   Bình luận