Помощь - Поиск - Пользователи - Календарь
Полная версия: 3 числа и их среднее арифметическое.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ЯЯЯ
Помогите составить программу!
Ввести три числа. Увеличивать третье из них в 3 раза, пока оно не будет больше среднего арифметического трех чисел. На экран выдавать числа и их среднее арифметическое.
volvo
В чем проблема? Цикл с постусловием: repeat ... until, в условие Until ставишь как раз проверку, больше ли среднее арифметическое, чем третье число... Задача решается в 3 строки...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.