Question

Дано целое число ,не меньшее 2.Вывести сколько делителей у этого числа. В ПАСКАЛЕ РЕШЕНИЕ ДЛЯ 8КЛАССА

Answer 1

Var n,i,k:integer;
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.