PROGRAM QWERTYYUIOP VAR X, Y: INTEGER; BEGIN WRITELN('ВВЕДИТЕ КООРДИНАТЫ X') READ(X);...

Question

PROGRAM QWERTYYUIOP VAR X, Y: INTEGER; BEGIN WRITELN('ВВЕДИТЕ КООРДИНАТЫ X') READ(X); WRITELN('ВВЕДИТЕ КООРДИНАТЫ Y') READ(Y); IF ((X>=0) AND ((X<=1.5)) AND (Y<=2)); THEN WRITELN('ПРИНАДЛЕЖИТ'); ELSE WRITELN('НЕ ПРИНАДЛЕЖИТ'); END. ошибка VAR X, Y: Как исправить?

Answer 1

Попутаны знаки ; во многих местах, должно получиться вот так:

PROGRAM QWERTYYUIOP;

VAR X, Y: INTEGER;

BEGIN

WRITELN('ВВЕДИТЕ КООРДИНАТЫ X');

READ(X);

WRITELN('ВВЕДИТЕ КООРДИНАТЫ Y');

READ(Y);

IF ((X>=0) AND ((X

THEN

WRITELN('ПРИНАДЛЕЖИТ')

ELSE

WRITELN('НЕ ПРИНАДЛЕЖИТ');

END.

Comments

Спасибо вам большое!!)))