Murne
5 год назад
Пожалуйста посчитайте решить плиз....
ОТВЕТЫ
Невена
Oct 24, 2020
Var x,y:real;
Begin
Write('x = ');ReadLn(x);
if x < 0 then y:=25-x
else y:=Sqr(Cos(x))-x;
WriteLn('y = ',y);
End.
Begin
Write('x = ');ReadLn(x);
if x < 0 then y:=25-x
else y:=Sqr(Cos(x))-x;
WriteLn('y = ',y);
End.
834
