помогите решить задание
Приложения:
Ответы на вопрос
Ответил Аноним
0
var
x,y:real;
begin
Read(x,y);
if x<y then y:=2*x-y
else y:=2*y-x;
Writeln(y)
end.
---------------------
var
x,y:real;
begin
Read(x);
if x<0 then y:=Sin(x)
else
if x>2 then y:=2*x*x
else y:=Sqr(Cos(x));
Writeln(y)
end.
x,y:real;
begin
Read(x,y);
if x<y then y:=2*x-y
else y:=2*y-x;
Writeln(y)
end.
---------------------
var
x,y:real;
begin
Read(x);
if x<0 then y:=Sin(x)
else
if x>2 then y:=2*x*x
else y:=Sqr(Cos(x));
Writeln(y)
end.
Ответил Nastya171167
0
спасибо большое
Ответил Аноним
0
Пожалуйста
Новые вопросы