Как написать программу, суммирующую целые числа до ввода пользователем нуля?

Ответ от Николай Зуев[активный]
Для решения задачи нужна программа, которая вводила бы целые числа, складывала их и завершала работу при вводе нуля. Удобнее всего реализовать это на языке Pascal. Пример готового кода:var
s, n: longint;
begin
s := 0;
repeat
write('Введите число: ');
readln(n);
s := s + n;
until n = 0;
writeln('Итоговая сумма: ', s);
readln;
end. Принцип работы прост: переменная s хранит общую сумму и изначально равна нулю. Цикл repeat просит ввести число n и сразу прибавляет его к s. Как только пользователь вводит 0, условие until n = 0 выполняется, цикл завершается, и на экран выводится результат. Этот алгоритм корректно суммирует любое количество введенных чисел.