Составить алгоритм на языке Pascal для решения неравенства вида: B - 3Ax > C - 5

Question

Информатика

Филомена

8 марта, 13:35

Составить алгоритм на языке Pascal для решения неравенства вида: B - 3Ax > C - 5

+1

Ответы (1)

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

Роксана · Answer 1

Var

a, b, c, s, k, x, q, f:real;

begin

write ('Vvedite a, b, c: ') ;

readln (a, b, c) ;

s:=-b+c-5;

k:=-3*a;

q:=-a*3;

f:=-b+c-5;

begin

If (q<0) and (f<0) then

writeln ('x','<', s/k)

else

writeln ('x',' >', s/k) ;

end;

end.

Составить алгоритм на языке Pascal для решения неравенства вида: B - 3*A*x > C - 5

Составить алгоритм на языке Pascal для решения неравенства вида: B - 3Ax > C - 5