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
2 câu trả lời
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.
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.
