1. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности. Паскаль

Сначала происходит чтение переменной для содержания элементов последовательности и продолжается до тех пор, пока пользователь не введет число 0, как символ окончания последовательности.

В переменную sum_of_nums записывается с нарастанием сумма всех введенных чисел.

Затем на экран выводится результат.

var

num, sum_of_nums : integer;

begin

writeln (' Вводите числа последовательности. Чтобы закончить, введите число 0 ');

repeat

read (num);

sum_of_nums : = sum_of_nums + num;

until num = 0;

writeln (' Сумма всех введенных вами чисел последовательности равна : ', sum_of_nums);

end.