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

Question

Информатика

Митюля

9 января, 00:43

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

+3

Ответы (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.