Составить программу в паскале для решения квадратного уравнения ax^2+bx+c=0

115

376

Посмотреть ответы 2

Ответы на вопрос:

Fleepee

Информатика

4,7(31 оценок)

Var a,b,c,d: real; begin write('введите коэффициенты уравнения (a, b, c): '); readln(a,b,c); d: =sqr(b)-4*a*c; if d> 0 then begin write('x1 = ')+sqrt(d))/(2*a),' | '); write('x2 = ')-sqrt(d))/(2*a)); end else if d = 0 then write('x = ')/(2*a)) else write('корней нет'); end.