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

Question

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

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<br>writeln('x','<',s/k)<br>else
writeln('x',' >',s/k);
end;
end.