Найти на отрезке (n;m) натуральное число, имеющие наибольшее количество делителей
Найти на отрезке (n;m) натуральное число, имеющие наибольшее количество делителей
Гость
Ответ(ы) на вопрос:
ГостьА на каком языке сделать?
program test;
var
n, m: integer;
max: integer;
count: integer;
number: integer;
i: integer;
function GetDividersCount(number: integer): integer;
var
limit: integer;
count: integer;
i: integer;
begin
limit := number div 2;
count := 0;
for i := 1 to limit do
if number mod i = 0 then
count := count + 1;
result := count;
end;
begin
write('Enter range: ');
read(n, m);
max := 0;
for i := n to m do
begin
count := GetDividersCount(i);
if max < count then
begin
max := count;
number := i;
end;
end;
writeln('Result: ', number);
end.
Не нашли ответ?
Похожие вопросы