, в чем тут проблема? Program a;
var x,y:real;
begin
writeln('Введиите переменную x');
read(x);
if x < 0 then;
y:=cos(2*x)+exp(x);
else;
y:=7x/abs(2x-1);
writeln(‘y=‘,y);
end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку