Ответы 1

  • var a, x, b, s: real;beginwrite('a = ');readln(a);write('b = ');readln(b);if (-2*b)/a < 0 then writeln('Нет решения') elsebeginx:=sqrt((-2*b)/a);if x=0 then writeln('x = 0') elsewriteln('x1 = ', x, ' | x2 = ', -x)endend.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years