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

Question

Ариадна

5 ноября, 19:17

+2

Ответы (1)

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

Лавря · Answer 1

Var

s, n: real;

begin

s : = 0;

n : = 0;

repeat

s : = s + n;

readln (n) ;

until n = 3;

writeln (s) ;

end.