Nhập N. Tính tổng các ước nguyên dương của N( dùng free pascal) VD: 12 7 tong= 1+2+3+4+6+12=28

0 bình luận về “Nhập N. Tính tổng các ước nguyên dương của N( dùng free pascal) VD: 12 7 tong= 1+2+3+4+6+12=28”

1. uses crt;
   var n,i,s:longint;
   begin
   clrscr;
      readln(n);
      for i:=1 to n do 
         if n mod i=0 then inc(s,i);
      writeln(s);
   readln
   end.

   Bình luận

2. program pht;
   uses crt;
     var n, s, i: integer;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           for i:=1 to n do if n mod i = 0 then s:=s+i;
           write(‘Tong = ‘, s);
           readln
   end.

   Bình luận