Viết chương trình nhập vào 1 số nguyên dương N.Tính tổng các ước nguyên dương của N(N<=10^12) vd:N=4 ta có tổng 1+2+4=7 làm ơn bài ktra của tui

0 bình luận về “Viết chương trình nhập vào 1 số nguyên dương N.Tính tổng các ước nguyên dương của N(N<=10^12) vd:N=4 ta có tổng 1+2+4=7 làm ơn bài ktra của tui”

1. program tinh_tong_uoc;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

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

          t:=0;

          for i:=1 to n do

                 if n mod i=0 then t:=t+i;

          write(‘Tong la: ‘,t);

          readln;

   end.

   Bình luận

2. Program bt2;
           Uses crt;

   Var
           n,t,i:integer;
   BEGIN
           Clrscr;
           Write(‘n= ‘);
           Readln(n);
           t:=0;
           For i:=1 to n do
            If n mod i=0 then t:=t+i;
           Write(t);
           Readln;
   END.

   Bình luận