Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

По заданным коэффициентам найти корни уравнения если D>0)) ПРОГРАММА ПАСКАЛЬ) помогите решить,плииз)))уравнение квадратное

Ответ оставил Гость

Var a,b,c,d,x1,x2:real;
begin;
readln(a);
readln(b);
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);
   writeln(x2=,x2);
end;
if d=0 then
begin;
  x1:=-b/(2*a);
  writeln(x1=,x1);
end;
if d<0 then writeln(Нет действительных решений);
end.