Цитата:
Сообщение от Gilting
Помогите с задачей, плиз.
Написать программу определения количества делителей натурального числа 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.