С клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел
С клавиатуры вводят последовательность чисел до тех пор пока не будет введено число 3. Требуется найти сумму введенных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar
s, n: real;
begin
s := 0;
n := 0;
repeat
s := s + n;
readln(n);
until n = 3;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы