Помощь - Поиск - Пользователи - Календарь
Полная версия: вычислить среднее геометрическое
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
eldar219
Помогите ,как начать решать задачу на Паскале:
Дана непустая последовательно положительных целыз чисел за которой следует нуль(это признак конца последовательности).Вычислить среднее геотметрическое этих чисел
Ozzя
Цитата
Произведение:=1
количество:=0
пока число<>0
прочитать число
Произведение:=Произведение*число
количество:=количество+1
конец цикла
среднее:=Произведение^(1/количество)


^ - это степень
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.