Семьдесят два за простое ! сделайте по-нормальному, . написать программу для вычисления корней квадратного уравнения: ax^2+bc+c=0.

239

355

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

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

dimaprokopovewp06mw2

Информатика

4,4(99 оценок)

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