Найдите ошибку. ( выводит просто большее число ) найти натуральное число из интервала от a до b с максимальной суммой делителей. var max,i,j,k,a,b,z: integer; begin k: =0; max: =0; readln(a,b); for i: =a to b do begin for j: =1 to i do if (i mod j)=0 then k: =k+1; if k> max then begin max: =k; z: =i; end; end; writeln (z); end.
shmakovaangeli
2
27.08.2019 16:40
0
Другие вопросы по теме Информатика
arrgitori
11.08.2019 08:10
44444kobzarr1
11.08.2019 08:10
albigazdalieva
08.11.2021 18:42
valikotura
23.06.2019 13:40
FenrisYT
16.09.2019 03:40
certus
27.08.2019 18:20
ninakamenskix2000
27.08.2019 18:20
Маша4гклаша
27.08.2019 18:20
greentyler451
27.08.2019 18:20
kisylay85
27.08.2019 18:20
Популярные вопросы
- Выписать страны, расположенные в Андах, написать их столицы и основные...
3 - 1. Легко ли было русским в бою? Покажите это на примере полка князя Андрея....
2 - 1. Рассчитать гравиметрический фактор при определении CaO в виде CaCO3.а)...
1 - 1. В алгоритме, записанном ниже, используются переменные a и b. Символ...
1 - с 6 заданием, пожлуйста с 6 заданием, пожлуйста) >...
2 - заповніть таблицю «Час модернізації в історії людства» />...
3 - Укажите словосочетание с действительным причастием и объясните. засеянные...
2 - 1. Из точки М к окружности радиуса 4 см проведены две прямые касающиеся...
2 - Студент знає 20 питань із 25 програми. Знайти ймовірність, що студент із...
1 - Як трансформується міф проПігмаліона?❤️❤️...
2
max,i,j,s,a,b,z:integer;
begin
max:=0;
Readln(a,b);
for i:=a to b do begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s>max then begin max:=s; z:=i end
end;
Writeln(z)
end.