В данном интервале целых натуральных чисел от N до M, найдите

В данном интервале целых естественных чисел от N до M, найдите число которое имеет величайшее число делителей. Если таких чисел несколько, то вывести нужно наименьшее из этих чисел. в паскале

Задать свой вопрос
1 ответ
Var m,n,j,i,c,max,o:integer;
begin
readln(n,m);
for i:= m downto n do begin
for j:=1 to i div 2 do
if i mod j = 0 then c:=c+1;
if cgt;=max then begin max:=c; o:=i; end;
c:=0;
end;
writeln(o);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт