Var a,b,x: real; begin write ('Vvedite koaficient a,b»'); readln (a,b); if a<>0 then begin x:= -b/a; writeln ('Koren yravnenia x=', x:9:3); end else if b<>0 then writeln ('Korney net'); else writeln ('x- luboe chislo'); end. Как можно переделать программу, выдает ошибку?

Предыдущий
вопрос Следующий
вопрос

В данной программе ошибка заключается в том, что оператор else if должен быть использован после оператора if, а не после оператора else.

Вот исправленный вариант программы:

Var a,b,x: real
begi
write ('Vvedite koaficient a,b»')
readln (a,b)
if a<>0 the
begi
x:= -b/a
writeln ('Koren yravnenia x=', x:9:3)
en
els
if b<>0 the
writeln ('Korney net')
els
writeln ('x- luboe chislo')
end.

Теперь программа должна работать без ошибок.