Uses graphabc;

var

a:real;

begin

writeln ('Введите число') ;

readln (a) ;

if

(a>0) and (a mod 2=0) then

setwindowsize (500,500) ;

setpencolor (clyellow) ;

circle (250,250,100) ;

floodfill (250,250, clorange) ;

if a<0 then

clearwindow;

rectangle (50,50,250,250) ;

else line (250,250,300,300) ;

end.

Встречено 'else', а ожидался оператор. Что делать? Что не так?

Question

Информатика

Ася

25 сентября, 00:34

Uses graphabc;

var

a:real;

begin

writeln ('Введите число') ;

readln (a) ;

if

(a>0) and (a mod 2=0) then

setwindowsize (500,500) ;

setpencolor (clyellow) ;

circle (250,250,100) ;

floodfill (250,250, clorange) ;

if a<0 then

clearwindow;

rectangle (50,50,250,250) ;

else line (250,250,300,300) ;

end.

Встречено 'else', а ожидался оператор. Что делать? Что не так?

+2

Ответы (1)

Знаете ответ на вопрос?

Степа · Answer 1

Var

a:real;

begin

writeln ('Введите число') ;

readln (a) ;

if

(a>0) and (a mod 2=0) then

setwindowsize (500,500) ;

setpencolor (clyellow) ;

circle (250,250,100) ;

floodfill (250,250, clorange) ;

if a<0 then

begin

clearwindow;

rectangle (50,50,250,250) ;

end

else line (250,250,300,300) ;

end.