Найти сумму чисел. Не пойму в чем ошибка.

[No@ngel]

Текст задачи:
На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40 чисел. Последовательность завершается признаком конца ввода. На стандартный поток вывода напечатайте сумму этих чисел.

Решение:

var y, x, i:longint;
begin
    i:=0;
    while (not eoln) do
    begin
    if i<=40 then begin
    read(x);
    y:=y+x;
    i:=i+1;
    end;
    end;
    writeln(y);
end.

Программа работает при любых значениях вводимых с клавиатуры.
Программа компилятора олимпиадных задач говорит, что решение неполное.
И если можно ее как-то упростить то как?

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

y обязательно обнулять перед использованием.
даже если компилятор это Вам позволяет, никогда не используйте неиницилизированные переменные! никогда!

что касается вашей программы, то, если в строке будет более 40 чисел,
ваш код должен зависнуть (перейти в бесконечный цикл).

Впрочем, по условию задачи чисел не больше 40.
поэтому и считать/проверять их количество я смысла не вижу:

var y, x:longint;
begin
    y:=0;
    while (not eoln) do
    begin
       read(x);
       y:=y+x;
    end;
    writeln(y);
end.

но тут есть подвох, связанный с переполнением данных.
попробуйте взять и просуммировать тридцать чисел 19999999
Такой размер входит в диапазон представления longint?
вот в этом и подвох.

[Аватар]

Если проверяешь количество чисел и там вдруг больше 40, то бесконечный цикл получишь. А зачем вообще проверяешь? Признак конца ввода нужно ловить. А какой он?

тут есть подвох, связанный с переполнением данных

Не вижу, 40*20000000 свободно в longint помещается

[No@ngel]

Сообщение от Serge_Bliznykov

var y, x:longint;
begin
    y:=0;
    while (not eoln) do
    begin
       read(x);
       y:=y+x;
    end;
    writeln(y);
end.

Такой вариант решения тоже пробовался изначально. Все равно вердикт "неполное решение" поэтому и стали заморачиваться с ограничениями по кол-ву символов в строке

[Serge_Bliznykov]

Сообщение от Аватар

Не вижу, 40*20000000 свободно в longint помещается

ага, что то я обсчитался.
в longint диапазон до 2147483647, это на 107 таких чисел хватит.

No@ngel, текст задания Вы точно скопировали? проверьте, сколько ноликов в числе.
Иначе, я не вижу ни подвохов, ни причин, почему выдаётся "неполное решение"...


погуглил. нашёл неоднократное упоминание задачи в интернете.
действительно, там от -20000000 до 20000000.
Задача тривиальная.
Что-то не так либо с тестирующей программой, либо с тем, что программа тестирует что-то, что не оговорено в условиях задачи.
Короче, сайт для тестирования -> в топку.