Составить программу решения линейного неравенства

Танюше4ка

Составить программу решения линейного неравенства ax
1 ответ

Танюше4ка

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