Предмет: Информатика,
автор: ve6ino
Решите в тетради задачи, используя цикл 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
Если что-то не понятно пиши в ЛС
Интересные вопросы
Предмет: Математика,
автор: nurdaulet69
Предмет: Қазақ тiлi,
автор: ermekbaiarai24
Предмет: Русский язык,
автор: Nadira582638
Предмет: Математика,
автор: kusto
Предмет: Литература,
автор: Аноним