Составьте ! найти корни квадратного уравнения, - вопрос №7606217 от alena13gerda 03.05.2022 05:51

Question

Информатика: Составьте ! найти корни квадратного уравнения, если мы предполагаем,что x=0, x больше 0, х меньше 0.

alena13gerda · Answer

Var a,b,c:integer;D,x1,x2:real;beginwriteln( введите a );readln(a);writeln( введите b );readln(b);writeln( введите c );readln(c);D:=sqr(b)-4*a*c;if (D 0) thenbeginx1:=(-b+sqrt(d))/(2*a);x2:=(-b-sqrt(d))/(2*a);writeln( дискриминант больше нуля= ,d);writeln( x1= ,x1);writeln( x2= ,x2);end;if (d=0) thenbeginx1:=-b/(2*a);writeln( d=0 );writeln( x1,2= ,x1);end;if (d 0) then writeln( корней нет! );end....