Решить линейное уравнение Ax + B = 0, заданное своими коэффициентами A и B (коэффициент A не равен 0) — Pascal(Паскаль)

Program Begin38;

Var
  A, X, B: Real;

Begin
  WriteLn('Введите A и B');
  ReadLn(A, B);
  WriteLn('x = ', -(B / A));
  ReadLn;

End.

Leave a Comment