Составить метод на языке Pascal для решения неравенства вида: B -

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

Задать свой вопрос
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 (qlt;0) and (flt;0) then
writeln('x','lt;',s/k)
else
writeln('x',' gt;',s/k);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт