Размещено 4 года назад по предмету
Информатика
от 55555ученик55555
помогите найти ошибку в паскале пишет false
Program Math1;
var a,b,c,D,x,x1,x2: real;
begin
readln(a,b,c);
if b=0 then if (c=0) then writeln( 'x=0') else if (-c/a<0) then writeln('корней нет') else writeln ( x1=sqrt(-c/a), x2=-sqrt(-c/a))
else if (c=0) then writeln ( 'x1=0', x2=-b/a) else
D :=b*b-4*a*c;
if (D<0) then writeln( 'корней нет' ) else if (D=0) then writeln ( x= -b/a) else writeln ( x1= -b+sqrt(D)/(2*a) , x2= -b-sqrt(D)/(2*a) )
end.