Question

Паскаль.
На вход программе подаётся натуральное число n<=1000. Выведите количество делителей числа n, включая 1 и само число n. (Помогите пожалуйста)

Answer 1

var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.