Program vika;

var x, y : integer;

begin

writeln ('Ведите x') ;

readln (X) ;

writeln ('Ведите y') ;

readln (y) ;

if

(x>0) and (y>0) then writeln (' В 1')

else

(x>0) and (y<0) then writeln ('В 4')

if

(x0) then writeln ('Во 2')

else

(x<0) and (y<0) then writeln ('В 3') ;

end.

пишет что

Встречено 'and', а ожидалось '; '

где ошибка? Буду очень благодарна

Question

Информатика

Дионисий

8 февраля, 10:36

Program vika;

var x, y : integer;

begin

writeln ('Ведите x') ;

readln (X) ;

writeln ('Ведите y') ;

readln (y) ;

if

(x>0) and (y>0) then writeln (' В 1')

else

(x>0) and (y<0) then writeln ('В 4')

if

(x0) then writeln ('Во 2')

else

(x<0) and (y<0) then writeln ('В 3') ;

end.

пишет что

Встречено 'and', а ожидалось '; '

где ошибка? Буду очень благодарна

+2

Ответы (1)

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

Евгеня · Answer 1

Program vika;

var x, y : integer;

begin

writeln ('Ведите x') ;

readln (X) ;

writeln ('Ведите y') ;

readln (y) ;

if

(x>0) and (y>0) then writeln (' В 1') ;

else

if (x>0) and (y<0) then writeln ('В 4') ;

if

(x0) then writeln ('Во 2') ;

else

if (x<0) and (y<0) then writeln ('В 3') ;

end.

немного исправил.