Составьте ! найти корни квадратного уравнения, если - вопрос №76071190 от pollywhite1 27.09.2022 14:19

Question

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

pollywhite1 · 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....