PROGRAM QWERTYYUIOPVAR X, Y:INTEGER;BEGINWRITELN(039;ВВЕДИТЕ КООРДИНАТЫ

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

Задать свой вопрос
1 ответ

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

PROGRAM QWERTYYUIOP;

VAR X, Y: INTEGER;

BEGIN

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

READ(X);

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

READ(Y);

IF ((Xgt;=0) AND ((Xlt;=1.5)) AND (Ylt;=2))

THEN

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

ELSE

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

END.

Танюха
Спасибо вам большое!!)))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт