Вообщем написал программу на паскале, а она не работает:
Program Proga;
var
a,b,c,d,x1,x2: real;
begin
writeln(Дано уравнение вида ax^2+bx+c=0);
Writeln (Укажи переменную "a");
readln(a);
Writeln (Укажи переменную "b");
readln(b);
Writeln (Укажи переменную "c");
readln(c);
if a = 0 then;
begin
writeln(Не квадратное уравнение!);
end;
else then;
begin
d:= sqr(b)-4*a*c;
if d < 0 then;
begin
writeln(Нет корней);
end
else then;
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln (X1 =,x1,X2 =,x2);
end;
end.
на 16 строке пишет ошибку: Встречено else, а ожидалось ; , если ставлю ";" пишет: Встречено else, а ожидался оператор
Подскажите в чем беда, заранее спасибо!
Vara,b,c,d,x1,x2: real;
begin
writeln(Дано уравнение вида ax^2+bx+c=0);
Writeln (Укажи переменную "a");
readln(a);
Writeln (Укажи переменную "b");
readln(b);
Writeln (Укажи переменную "c");
readln(c);
if a = 0
then writeln(Не квадратное уравнение!)
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln(Нет корней)
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln (X1 =,x1, X2 =,x2);
end;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
