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

Question

Галюха

17 февраля, 14:10

+3

Ответы (1)

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

Мардарий · Answer 1

Var

s, n: real;

begin

s : = 0;

n : = 0;

repeat

s : = s + n;

readln (n);

until n = 3;

writeln (s);

end.