С клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел
Var
s, n: real;
begin
s := 0;
n := 0;
repeat
s := s + n;
readln(n);
until n = 3;
writeln(s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
