Дан числовой ряд, содержащий целые положительные числа, не превосходящие 300/вот ** этом...

Question

Дан числовой ряд, содержащий целые положительные числа, не превосходящие 300/вот на этом моменте я не поняла, что здесь имеется ввиду/. Количество неизвестно, но окончанием ввода числового ряда является ввод нуля. Найти число, для которого сумма делителей числа будет наибольшей, исключая из делителей ноль и само число
УМОЛЯЮ ПОМОГИТЕ

Comments

А что тут сложного? Вводим числа от 1 до 300, любые и в любом порядке. Как надоело - вводим ноль.

---

А вот с дальнейшей постановкой вопроса действительно некорректность. Вот число 256. Оно равно 2х2х2х2х2х2х2х2. Но из этих двоек можно построить делители 128, 64, 32, 16, 8, 4, 2. Те. мы можем получить МНОГО представлений числа в виде сомножителей; 2х128, 4х64, 8х32 и т.д, и это даст нам МНОГО разных сумм. И как быть?

---

Может быть, речь о представлении числа в виде суммы ПРОСТЫХ делителей?

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 n,i,s,max,maxn:integer;
begin
n:=1;
max:=-1;
 while n<>0 do
  begin
   readln(n);
   for i:=1 to n div 2 do
   if n mod i=0 then s:=s+i;
   if max   begin  
    max:=s;
    maxn:=n;
   end;
   s:=0;
  end;
 writeln(maxn);
end.

Пример ввода:
23
45
67
12
23
0
Пример вывода:
45

Comments

Т.е. это тот случай, когда для 256 будут суммироваться 1,2,4,8,16,32,64 и 128.

---

А разве не это требовалось?

---

Если бы я знал, что требуется, то не стал бы писать такие комментарии к вопросу.