Кількість дільників

Знайти кількість дільників числа n.
Вхідні дані
Одне натуральне число n (n < 10000).
Вихідні дані
Кількість дільників числа n.


Вхідні дані
12
Вихідні дані
6



program dilniki;
var k,n,i : integer;
BEGIN
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln (k);

END.

Немає коментарів:

Дописати коментар