помогите решить задание

Помогите решить задание

Задать свой вопрос
1 ответ
Var
  x,y:real;
 
begin
  Read(x,y);
  if xlt;y then y:=2*x-y
  else y:=2*y-x;
  Writeln(y)
end.

---------------------

var
  x,y:real;
 
begin
  Read(x);
  if xlt;0 then y:=Sin(x)
  else
    if xgt;2 then y:=2*x*x
    else y:=Sqr(Cos(x));
  Writeln(y)
end.
Виталий Залманзон
спасибо огромное
Пергун Степан
Пожалуйста
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт