ТутРешу.Ру

Решите в тетради задачи, используя цикл while-wend…

Задание:

Решите в тетради задачи, используя цикл 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Если что-то не понятно пиши в ЛС




Знаете другой ответ?

Отправить свой ответ