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

@Танюше4ка · Регистрация: 20.01.2012

Студворк — интернет-сервис помощи студентам

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

@Ev[G]eN · 24.03.2012, 16:29

Pascal

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.

@Танюше4ка 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 47
		1
	Составить программу решения линейного неравенства 24.03.2012, 16:27. Показов 12641. Ответов 1 Метки нет (Все метки) Составить программу решения линейного неравенства ax<b. 0

Опции темы

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

Решение