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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,s:integer; begin s:=0; repeat readln(a); s:=s+a; until a<0; writeln(s); end.