Question

Помогите решить, очень надо
Найти количество делителей натурального числа, больших К (К вводить с клавиатуры). (только через операторы if и for)

Answer 1

Program del;
uses crt;
var N,K,i,m:integer;
begin
write( 'введите число N=' ); readln(N);
write( 'введите ограничитель делителей (K<N) K=' ); readln(K);
for i:=K+1 to N do
    if  N mod i = 0  then m:=m+1;
writeln( 'количество делителей числа N=' ,N, '  равно m=', m);
readln
end.