Question

1 задание (ну если кто хочет может помочь с другими заданиями тоже) Всё в фотографии.Помогите

Answer 1

===== PascalABC.NET =====

begin

 var(a,b,c) := ReadReal3;

 var D := b*b-4*a*c;

 if D<0 then

   Print('Нет действительных корней')

 else if D=0 then

   Print('x1, x2 =', -b/2/a)

 else

 begin

   D :=Sqrt(D);

   Print('x1 =', (-b -d)/(2*a),

       '  x2 =', (-b +d)/(2*a))

 end;

end.