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