Написать программу, которая решает уравнение ax+b <0 относительно x для любых чисел a и b...

Question

Написать программу, которая решает уравнение ax+b <0 относительно x для любых чисел a и b , введёных с клавиатуры.<br>
Помогите пожалуйста)

Answer 1

ax + b < 0
ax < -b
x < - b / a

a, b могут быть дробными числами.
Язык программирования: Паскаль

var
a, b : real;
begin
readln (a);
readln (b);
if a <> 0 then
writeln ('x < ', - b / a);
if (a = 0) and (b < 0) then
writeln ('x - любое число');
if (a = 0) and (b >= 0) then
writeln ('нет решений')
end.

Answer 2

var

  a,b,x:real;

begin

  write ('A = ');readln(a);

  write ('B = ');readln(b);

  if (a=0) and (b>=0) then writeln ('Нет решений') else

    if (a=0) and (b<0) then writeln ('X - любое число') else</p>

      if a>0 then writeln ('X < ',-b/a:0:4) else

        if a<0 then write ('X > ',-b/a:0:4);

  readln;

end.