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

Question

Информатика

Петруша

11 января, 14:30

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

+5

Ответы (1)

Знаете ответ?

Ксенюша · Answer 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 c>=max then begin max:=c; o:=i; end;

c:=0;

end;

writeln (o) ;

end.