Помогите пожалуйста! По информатике. Срочно!!
Program esep..;
Var x,y:real;
Begin
Writeln(x...);
Read(x);
If x<2 then y:=sqr(x+ln(sin(x))/sqr(x)else
Y:=4x+sqrt(cos(sqr(x)));
Write(y=,y);
Read(x);
End
Оцени ответ
Program esep..;
Var x,y:real;
Begin
Writeln(x...);
Read(x);
If x<2 then y:=sqr(x+ln(sin(x))/sqr(x)else
Y:=4x+sqrt(cos(sqr(x)));
Write(y=,y);
Read(x);
End