Помогите решить 2 задачи!

Question

Помогите решить 2 задачи!

---

Comments

Паскаль?

---

да

Answer 1

Var
x:real;
Begin
Write('x = ');
ReadLn(x);
if 1else
   if (-1<=x)and(x<=1) then x:=1<br>   else x:=x*x;
Write('y = ',x);
End.




Var
X,Y,C:real;

Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if x   Begin
   c:=x+y;
   y:=x*y;
   x:=c;
   End
else
   Begin
   c:=x+y;
   x:=x*y;
   y:=c
   End;
WriteLn('x = ',x);
WriteLn('y = ',y);
End.