Var a,b,c,y1,y2,y3:real;
begin
readln(a,b,c);
y1:=sqrt(2*a-3)/(b-1)+sqrt(c*c+a*c+a*a);
writeln('y1 = ',y1:7:3);
y2:=sqrt(2+sqrt(2+sqrt(b+sqrt(abs(c-a)))));
writeln('y2 = ',y2:7:3);
y3:=1/(1+1/(a+(1-b)/(1-c)));
writeln('y3 = ',y3:7:3);
end.
Пример:
2 5 3
y1 = 4.609
y2 = 2.027
y3 = 0.800
Программа не будет вычислять значения, если:
1) какое-либо подкоренное выражение будет < 0;
2) знаменатель какой-либо дроби будет = 0.
(например, при a=1; b=-1; c=1)