Дано натуральное число. Подсчитать общее количество его делителей.

Question

Дано натуральное число. Подсчитать общее количество его делителей.

Answer 1

почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
     i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.