Написать программу на паскале для решения неравенства (-ax) / (x-b) >0 с помощью операторов if

Question

Информатика

Аполлония

31 июля, 23:37

Написать программу на паскале для решения неравенства (-ax) / (x-b) >0 с помощью операторов if

+1

Ответы (1)

Знаете ответ на вопрос?

Феофан · Answer 1

Пфф легко!

var a, x, b : real;

begin

read (a, x, b) ;

if (a<0) and (b < 0) then

begin

//если Я правильно выразил х то

i : = x * (ab-a) ;

writeln ('x пренадлежит от ', i) ; write (' до плюс бесконечность') ;

end;

else

writeln ('Дебыл, ты неправильно ввел либо а либо b') ;

end.