С клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел

Question

Михаля

18 декабря, 01:49

+4

Ответы (1)

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

Манюня · Answer 1

Var

s, n: real;

begin

s : = 0;

n : = 0;

repeat

s : = s + n;

readln (n) ;

until n = 3;

writeln (s) ;

end.