Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Ввести x, если x<=0, то y=(sin(x))-cos(x), иначе y= 5x^2-(sin^2(x))

Ответ оставил Гость

Var x, y:real;  
begin
write (Введите х: );
readln (x);
if x<=0 then
y:=sin(x) - cos(x)
else
y:=5*x*x-2*sin(x)*sin(x)
write(y);
readln end.