Question

2.Ввести три числа (коэффициенты квадратного уравнения a,b и с) и найти корни этого уравнения.

Answer 1

Program unknown;

var a,b,c,D,x1,x2:real;

Begin

Writeln('Введи a,b и c:');

Readln(a,b,c);

D:=(b*b)-(4*a*c);

x1:=(-b+sqrt(D))/(2*a);

x2:=(-b-sqrt(D))/(2*a);

If D>0 then writeln('D','=',D, '; x1','=',x1,'; x2','=',x2);

If D<0 then writeln('D<0,нет корней.');

If D=0 then writeln('D','=',0, ', 2 одинаковых корня,x1=x2','=',x1);

writeln('Ответ:','(',x1,';',x2,')');

End.

Answer 2

Спасибо, но вы можете написать это на языке Microsoft Small Basic пожалуйста