Составьте программу нахождения количества делителей числа n (значение n вводится с...

Question

Составьте программу нахождения количества делителей числа n (значение n вводится с клавиатуры)

Answer 1

Var n,i,k:integer;
begin
write('n='); readln(n);
k:=2;
for i:=2 to n div 2 do
 if n mod i = 0 then k:=k+1;
writeln('k=',k);
end.

Пример:
n=20
k=6