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

Question

Евфросиния

15 июня, 08:13

+2

Ответы (1)

Знаете ответ?

Ольда · Answer 1

Var a, b, s:integer;

begin

s:=0;

repeat

readln (a) ;

s:=s+a;

until a<0;

writeln (s) ;

end.