Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу,которая запрашивает у пользователя ввод чисел,пока не будет нажата цифра "ноль".На экран выводит сумму всех введенных чисел

Ответ оставил Гость

Program numSum;
var inp,sum:longint;
begin 
 repeat 
  readln(inp);
  sum:=sum+inp; 
 until inp=0; write(Sum - ,sum); readln;
end.