Найти натуральное число от 1 до 10000 с максимальной суммой делителей.

@Bojan · Регистрация: 07.10.2010

Студворк — интернет-сервис помощи студентам

Условие задачи: Найти натуральное число от 1 до 10000 с максимальной суммой делителей.
код есть,но сказали неправильно а что именно не сказали(

Pascal

program z9;
uses
crt;
var
i,j,s,s1,qq,n:integer;
begin
clrscr;
write('Vvedi chislo= ');read(n);
for i:=1 to n do
begin
for j:=1 to i do
begin
if i mod j=0 then
begin
s:=s+j;
end;
end;
if s>s1 then
begin
s1:=s;
qq:=i;
s:=0;
end;
end;
writeln('result= ',qq);
readkey;
end.

@safa · 28.10.2010, 22:18

Можить быть я ошибаюсь, но мне кажется ошибка в условном операторе.

Pascal

if s>s1 then
begin
s1:=s;
qq:=i;
s:=0;
end;

s должен независимо оттого больше он s1 или нет обнуляться при следующем числе, а у вас обнуляется тока когда он больше s1. Я думаю должно выглядеть так:

Pascal

if s>s1 then
begin
s1:=s;
qq:=i;
end;
s:=0;

	28.10.2010, 22:18

Опции темы