Всі умови | Умова: Дано дійсні числа s, t. Отримати...
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №431)
program Pr431;
var
s, t, r : real;
function max(a,b: real): real;
begin
if a>b then
max:=a
else
max:=b;
end;
function h(a,b: real):real;
begin
result:= a/(1+sqr(b)) + b/(1+sqr(a)) - power(a - b, 3);
end;
begin
readln(s);
readln(t);
r:= h(s,t) + max(sqr(h(s-t,s*t)),sqr(h(s-t,s+t))*h(s-t,s+t))+h(1,1);
writeln(r:10:2);
readln;
end.