Даю 30 баллов!!!!!!
Вводится N чисел. Найти число с максимальным количеством делителей.
Pascal плиииииз
Ответы
Ответ дал:
0
var
res1,res2,j,n,count:integer;
//----------------------------------------------
function CountDel(n:integer):integer;
var
i: integer;
begin
count:=1;
for i := 1 to n div 2 do
if (n mod i) = 0 then
inc(count);
CountDel:=count;
end;
//----------------------------------------------
begin
write('Введите кол-во чисел: '); readln(n);
res2:=0;
for j:=1 to n do
begin
readln(n);
if res2<CountDel(n) then
begin
res1:=n;
res2:=CountDel(n);
end;
end;
writeln('Результат:',res1, ', Делителей:',res2);
end.
Если моё решение помогло вам, пометьте его лучшим. Спасибо!
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад