Пограмма определения количества делителей натурального числа N, больших K

[Gilting]

Пограмма определения количества делителей натурального числа N, больших K

Помогите с задачей, плиз.

Написать программу определения количества делителей натурального числа N , больших K

 

[Vladimir_S]

Помогите с задачей, плиз.

Написать программу определения количества делителей натурального числа N , больших K

Пожалуйста:

VAR
 N,k:LongInt;
 Div_Num:WORD;
 i:INTEGER;
BEGIN
 Write('N= ');
 ReadLn(N);
 Write('k= ');
 ReadLn(k);
 Div_Num:=0;
 For i:=k to (N div 2) do
  If (N mod i)=0 then INC(Div_Num);
 WriteLn('The number of divisors is ', Div_Num);
 ReadLn;
END.