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;
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.

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