Найти сумму введенных чисел - Pascal ABC
Формулировка задачи:
Последовательно вводятся числа, найдите их сумму. Ввод остановить после ввода второго нуля.
Решение задачи: «Найти сумму введенных чисел»
textual
Листинг программы
var
a, s, k : integer;
begin
k := 0;
s := 0;
repeat
write('введи число: ');
readln(a);
s := s + a;
if a = 0 then inc(k)
until k = 2;
writeln('сумма равна: ', s)
end.