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.

Answer 2

Program z1;
var a,b,c:integer;
begin
readln(a,b,c);
if (b*b-4ac)>0 then
writeln((-b+sqr(b*b-4ca))/4a,(-b-sqr(b*b-4ca))/4a)
end.