Question

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

Answer 1

var
  s, n: real;

begin
  s := 0;
  n := 0;
  repeat
    s := s + n;
    readln(n);
  until n = 3;
  writeln(s);
end.