Question

разработайте алгоритм и программу вычисления выражения y=1/x+2 для паскала . Хочу типо Var y,x: integer; ........ так далее пожалуйста срочно...

Answer 1

var

y, x : real;

begin

readln(x);

if x <> 0 then begin

y := 1/x+2;

writeln(y:5:2);

end

else

writeln('На ноль делить нельзя!');

end.