Погите кто понимает язык Паскаль

Question

Погите кто понимает язык Паскаль

Ольга Башлай Ученик (205), закрыт 10 лет назад

Генерировать целые числа в интервале от -50 до 50 и суммировать их, до тех пор пока сумма не превысит 75. Вывести сумму чисел.

Answer 1

program N96539369;
const
Sum: longint = 0;
begin
randomize;
while Sum <= 75 do
inc(Sum, random(101) - 50);
writeln('Сумма чисел = ', Sum);
readln
end.

Задача не так проста, как кажется. При очень неудачном стечении обстоятельств может и longint переполниться, ведь для отрицательной суммы в условии никаких ограничений нет.