Đếm xem có bao nhiêu số hoàn hảo trong 1 dãy số nguyên cho trước ( Sử dụng câu lệnh làm việc với dãy số nhaaa)

0 bình luận về “Đếm xem có bao nhiêu số hoàn hảo trong 1 dãy số nguyên cho trước ( Sử dụng câu lệnh làm việc với dãy số nhaaa)”

1. *Không mảng:

   uses crt;
   var n,i,d,s:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); read(n);
      for i:=1 to n div 2 do 
         begin
            if n mod i=0 then inc(s,i);
            if s=n then inc(d);
         end;
      writeln(‘Co ‘,d,’ so hoan hao’);
      readln
   end.

   *Có mảng:

   uses crt;
   var n,i,j,d,s:longint;a:array[1..1000000] of longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do 
         begin
            s:=0;
            write(‘Nhap phan tu thu ‘,i,’: ‘); read(a[i]);
            for j:=1 to a[i] div 2 do if a[i] mod j=0 then inc(s,j);
            if s=a[i] then inc(d);
         end;
      writeln(‘Co ‘,d,’ so hoan hao’);
      readln
   end.

   Bình luận

2. var a:array[1..100] of longint;

         n,i,d,tong,j:longint;

   begin

   read(n);

   for i:=1 to n do read(a[i]);

   for i:=1 to n do

   begin

   tong:=0;

   for j:=1 to a[i]-1 do

   if a[i] mod j=0 then tong:=tong+j;

   if tong=a[i] then d:=d+1;

   end;

   write(‘so so hoan hao trong day la ‘,d);

   end.

   Muốn đọc kết quả ấn đồng thời 2 phím alt+f5 nhé 🙂

   Bình luận