Question

Помогите по информатике 16. номер

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (x,y):=ReadReal2();
var m: real;
if x<7 then m:=sqrt(2*x)+cos(4*y) else if (x<9) and (x>=7)
then m:=-2*x+5*power(e,-y) else m:=-x*x+3*ln(4*y);
write(m);
end.