Решите,пожалуйста,одну заачу на Pascalе, Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает св Опции

[Юля]

Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

[Cтранник]

Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

Вот ответ на твой вопросс

[code]uses crt;
var a,summa: integer;
begin
writeln('Vvedi shisla');
summa:=0;
repeat
readln(a);
summa:=summa+a;
until a=0;
writeln(summa);
readln;
end.