с клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел.(паскаль) помогите пожалуйста!!!
Ответы
Ответ дал:
0
var
s, n: real;
begin
s := 0;
n := 0;
repeat
s := s + n;
readln(n);
until n = 3;
writeln(s);
end.
s, n: real;
begin
s := 0;
n := 0;
repeat
s := s + n;
readln(n);
until n = 3;
writeln(s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад