Найти значение выражения при помощи процедуры максимум из трех - Pascal
Формулировка задачи:
Для чисел a b c найти значение выражения max abc+1/max(ab,ac,bc) с использованием процедуры нахождения максимального из трех чисел
Решение задачи: «Найти значение выражения при помощи процедуры максимум из трех»
textual
Листинг программы
procedure max3(x,y,z:real;var mx:real);
begin
if x>y then mx:=x else mx:=y;
if z>mx then mx:=z;
end;
var a,b,c,x,y,z:real;
begin
readln(a,b,c);
max3(a,b,c,x);
max3(a*b,a*c,b*c,y);
if y=0 then write('Значение не определено')
else
begin
z:=(x+1)/y;
write('z=',z:0:2);
end;
end.