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

Question

Сильван

30 июля, 16:57

+5

Ответы (1)

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

Галатея · Answer 1

Var a, b, s:integer;

begin

s:=0;

repeat

readln (a);

s:=s+a;

until a<0;

writeln (s);

end.