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

Question

Информатика

Владя

18 ноября, 21:18

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

+2

Ответы (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 для решения неравенства вида: В-3*А*х>С-5

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