Решите в тетради задачи, используя цикл while-wend 1. Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры
Ответы
Ответ дал:
0
begin
read(n);
while (n <> 0) do // пока не равно нулю делать
begin
s := s + n;
k = k + 1;
end.
writeln(s/k); // среднее
writeln(s); // сумма
end.
Переменные сам объяви. s и к должны быть типа real
Если что-то не понятно пиши в ЛС
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад