Составить прлограмму решения уравнения. y=x/2-x
Var y,x:real;beginwriteln('Введите значение x: ');readln(x);y:=x/2-x ;writeln('y = ',y);end.
var y,x:real; begin writeln('Введите значение x: '); readln(x); y:=x/2-x ; writeln('y = ',y); end.