Найдите ошибку. ( выводит просто большее число )Отыскать естественное число из

Найдите ошибку. ( выводит просто большее число )
Отыскать натуральное число из промежутка от 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 ответ
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 sgt;max then begin max:=s; z:=i end
  end;
  Writeln(z)
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт