Viết chương trình nhập số nguyên dương N và tính tích cách ước số của N

0 bình luận về “Viết chương trình nhập số nguyên dương N và tính tích cách ước số của N”

1. Uses crt;
   Var n,d,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
                   If n mod i = 0 then d:=d+1;
           Writeln(‘So ‘,n,’ co ‘,d,’ uoc’);
           Readln;
   End.

   Bình luận

2. Program BTT;
   Uses crt;
   Var n,d,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
                   If n mod i = 0 then inc(d);
           Write(‘So ‘,n,’ co ‘,d,’ uoc’);
           Readln
   End.

   Bình luận