Кількість дільників
Знайти кількість дільників числа 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.
Немає коментарів:
Дописати коментар