Составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы.

Question

Вяча

2 октября, 15:32

+1

Ответы (1)

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

Димуха · Answer 1

Var a, b, s:integer;

begin

s:=0;

repeat

readln (a) ;

s:=s+a;

until a<0;

writeln (s) ;

end.