Viết CT nhập vào số N (n>0).in ra màn hình tất cả các ước nguyên dương của N và tính tổng các ước đó

0 bình luận về “Viết CT nhập vào số N (n>0).in ra màn hình tất cả các ước nguyên dương của N và tính tổng các ước đó”

1. program tong_uoc;

   uses crt;

   var n,i,t:integer;

   begin

         clrscr;

         write(‘Nhap N: ‘);  readln(n);

         write(‘Cac uoc cua ‘,n,’: ‘); 

         t:=0;

         for i:=1 to n do

               if n mod i=0 then

                     begin

                           write(i,’ ‘);

                           t:=t+i;

                     end;

         writeln;

         write(‘Tong cac uoc cua ‘,n,’ la: ‘,t);

         readln;

   end.

   Bình luận

2. uses crt;
   var n,i,s:longint;
   begin
    clrscr;
    write(‘Nhap so luong phan tu: ‘);readln(n);
    write(‘Cac uoc so cua ‘,n,’: ‘);
    for i:=1 to n do if n mod i=0 then
     begin
         write(i,’ ‘);
      inc(s,i);
     end;
    writeln;
    write(‘Tong cac uoc so cua ‘,n,’: ‘,s);
    readln;
   end.

   Bình luận