Question

Реализовать программу ,осуществляющую вывод решения квадратного уравнения (параметры a,b,c вводятся с клавиатуры) Хелп ми!!!

Answer 1

program kvadratnoe;
var a,b,c,d:real;
begin
 Writeln('Введите коэффициенты:a,b,c');
 readln(a,b,c);
 d:=b*b-4*a*c; if d >0 then  
 begin   
  Writeln('x1=',(-b-Sqrt(d))/2*a);   
  Writeln('x2=',(-b+Sqrt(d))/2*a) 
 end; 
 if d=0 then Writeln('x=',(-b/2*a)); 
 if d<0 then Writeln('Действительных корней нет')
end.