Страница 163 §3.5 номер 7, ГДЗ по информатике за 8 класс к учебнику Босовой
Информатика 8 класс 8класс
ГДЗ к учебнику по информатике за 8 класс Босовой. Решения к номерам
Ответ и решение
program z7;var s, x, k: integer; sr: real;begin s := 0; k := 0; repeat write('Введи целое число'); readln(x); k := k + 1; s := s + x until x = 0; sr := s / (k - 1); writeln('Сумма = ', s, ', среднее арифметическое = ', sr)end.