Дано 3 числа. Если модуль хотя бы одного из них больше 1, то найти их среднее арифметическое, иначе - их произведение

Дано 3 числа. Если модуль хотя бы одного из них больше 1, то найти их среднее арифметическое, иначе - их произведение
Гость
Ответ(ы) на вопрос:
Гость
program gt; var a,b,c,s:real; begin read(a,b,c); if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c; writeln(s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы