Решить уравнение в паскаль a *х²+2*b=0 

Решить уравнение в паскаль a *х²+2*b=0 
Гость
Ответ(ы) на вопрос:
Гость
var a, x, b, s: real; begin write('a = '); readln(a); write('b = '); readln(b); if (-2*b)/a < 0 then writeln('Нет решения') else begin x:=sqrt((-2*b)/a); if x=0 then writeln('x = 0') else writeln('x1 = ', x, ' | x2 = ', -x)end end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы