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

Question

Информатика

Лавра

15 июня, 15:08

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

+1

Ответы (2)

Знаете ответ на вопрос?

Алевтинка · Answer 1

Program numSum;

var inp, sum:longint;

begin

repeat

readln (inp) ;

sum:=sum+inp;

until inp=0; write ('Sum - ', sum) ; readln;

end.

Элюня · Answer 2

Var a, s:integer;

begin

writeln ('Введите целое число') ;

a:=1;

while a0 do

begin

readln (a) ;

s:=a+s;

end;

writeln ('Сумма всех введенных чисел = ', s) ;

end.