Question

Program dr; var a,b,c,d,x1,x2: real; begin d: =b*b-4*a*c; read(a,b,c); if d< 0 then writeln ('корней нет') else if d=0 then begin x: =-b/(2*a): writeln(x); end; else begin x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln(x1); writeln(x2); end; end. program1.pas(9) : встречено 'else', а ожидался оператор. в чём проблема?

Answer 1

Program Dr;
var
  a,b,c,D,x,x1,x2:Real;
begin
  Read(a,b,c);
  D:=b*b-4*a*c;
  if D<0 Then Writeln ('корней нет')
  else
    if D=0 then begin x:=-b/(2*a); Writeln(x); end
    else begin
      x1:=(-b-SQRT(D))/(2*a);
      x2:=(-b+SQRT(D))/(2*a);
      Writeln(x1);
      Writeln(x2)
    end
end.