Question

в паскале решите
составьте программу для вычисления значения функции при любом x:y=2+3x/2-4x

Answer 1

Program z1;
Var x:integer;
Y:real;
Begin
Writeln('введите х');
Readln(x);
Y:=2+3x/2-4x;
Writeln('y=',y:4:1);
Readln;
End.


Вроде так