Иов
4 год назад
Найдите ошибку. ( выводит просто большее число )Найти натуральное число из интервала от a до b с максимальной суммой делителей.var max,i,j,k,a,b,z:integer;begink:=0;max:=0;readln(a,b);for i:=a to b dobeginfor j:=1 to i doif (i mod j)=0 then k:=k+1;if k>max then beginmax:=k;z:=i;end;end;writeln (z);end.
ОТВЕТЫ
Baumhauer Nora
Oct 24, 2020
var
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.
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.
950
Смежные вопросы:
