Написать программу для решения уравнения AX2+ BX+C=0.
(Дописать до конца)
2)Написать программу для решения неравенства Bx+C<0.
3)Написать программу для решения уравнения


+ = 0

1.program z1;var a,b,c,x1, x2:real;beginwriteln('введите коэффициенты А (отличное от нуля), В и С ');readln(a,b,c);if sqrt(b*b-4*a*c)>0 thenbeginx1:=(-b+sqrt(b*b-4*a*c))/2/a;x2:=(-b-sqrt(b*b-4*a*c))/2/a;writeln('x1=',x1,', x2=',x2);endelse if sqrt(b*b-4*a*c)=0 thenbeginx1:=(-b+sqrt(b*b-4*a*c))/2/a;writeln('x=',x1)endelse writeln('уравнение не имеет корней');end.2.program z1;var b,c,x:real;beginwriteln('введите коэффициенты B (отличное от нуля) и С ');readln(b,c);x:=-c/b;writeln('x<',x);end.