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

1

Ответы и объяснения

2013-12-25T21:45:57+04:00
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.