Найдите ошибку. ( выводит просто большее число )Найти натуральное число из
Найдите ошибку. ( выводит просто большее число )
Найти естественное число из промежутка от 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 kgt;max then
begin
max:=k;
z:=i;
end;
end;
writeln (z);
end.
1 ответ
Потовцева Дарина
Оплошности две:
1) Не забывайте обнулять переменную k. У вас она не обнулялась, и так как каждый раз прибавлялось что-то, то максимум достигался на заключительном числе.
2) Необходимо не количество, а сумма делителей, потому к k надобно добавлять не 1, а i.
Пример исправленной программки:
var
max, i, j, k, a, b, z: integer;
begin
max := 0;
readln(a, b);
for i := a to b do
begin
k := 0;
for j := 1 to i do
if (i mod j) = 0 then
k := k + j;
if k gt; max then
begin
max := k;
z := i;
end;
end;
writeln(z);
end.
1) Не забывайте обнулять переменную k. У вас она не обнулялась, и так как каждый раз прибавлялось что-то, то максимум достигался на заключительном числе.
2) Необходимо не количество, а сумма делителей, потому к k надобно добавлять не 1, а i.
Пример исправленной программки:
var
max, i, j, k, a, b, z: integer;
begin
max := 0;
readln(a, b);
for i := a to b do
begin
k := 0;
for j := 1 to i do
if (i mod j) = 0 then
k := k + j;
if k gt; max then
begin
max := k;
z := i;
end;
end;
writeln(z);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов