Встречено else а ожидался оператор PascalANC.NET

Question

Встречено else а ожидался оператор PascalANC.NET

Евгений Желудков Ученик (97), на голосовании 10 месяцев назад

uses GraphABC;
var
x:integer;
begin
read(x);
if (x>=3) and (x<10) then;
begin
setwindowsize(600,600);
rectangle(100,100,500,400);
floodfill(400,300,clGreen);
end;
else
setwindowsize(600,600);
circle(300,300,300);
floodfill(300,300,clRed);
end.

Answer 1

В Паскале категорически запрещено ставить точку с запятой перед else.

А еще она всё портит после then, так как по условию у вас выполняется пустой оператор «точка с запятой», а дальнейший begin…end идет безусловно. Соответственно безусловным оказывается и else после end, а так нельзя.

Уберите две точки с запятой — после then и перед else. Должно заработать.

P. S. Я не уверен, сколько операторов вы хотели выполнить для else, но сейчас выполнится только один — setwindowsize(600,600). Два других сработают безусловно, так как не заключены в begin…end сразу после else.

Answer 2

uses GraphABC;
var x:integer;
begin
read(x);
if (x>=3) and (x<10) then
begin
setwindowsize(600,600);
rectangle(100,100,500,400);
floodfill(400,300,clGreen)
end
else begin
setwindowsize(600,600);
circle(300,300,300);
floodfill(300,300,clRed)
end
end.

попробуй, надо было дописать begin и end после else

чел сверху прав мб