Cho N là số tự nhiên được nhập từ bàn phím. Viết chương trình a) Tính tổng các ước nguyên dương của N b) đếm số lượng ước nguyên dương của N

0 bình luận về “Cho N là số tự nhiên được nhập từ bàn phím. Viết chương trình a) Tính tổng các ước nguyên dương của N b) đếm số lượng ước nguyên dương của N”

1. program ct;

   uses crt;

   var i,d,N:integer;

         S:longint;

   begin clrscr;

      write(‘Nhap so N:’); readln(N);

        S:=0;

      for i:=1 to N do

        if N mod i=0 then

          begin

             S:=S+i;

             inc(d);

          end;

      writeln(‘Tong cac uoc nguyen duong cua ‘,N,’ la: ‘,S);

      writeln(N,’ co ‘,d,’ uoc nguyen duong’);

   readln;

   end.

   Học tốt!

   Bình luận

2. uses crt;

   var i,n,tong,dem:integer;

   Begin

   clrscr;

   writeln(‘Nhap n:’);readln(n);

   tong:=0; dem:=0;

   for i:= 1 to n do if n mod i = 0 then begin tong:=tong+i; dem:=dem+1 end;

   writeln(‘ Tong cac uoc nguyen duong cua ‘,n,’ la ‘,tong);

   writeln(‘ So luong uoc nguyen duong cua ‘,n’, la ‘,dem);

   readln;

   end.

   Bình luận