profile
Опубликовано 6 лет назад по предмету Информатика от awplayru

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: Как исправить?

  1. Ответ
    Ответ дан maksimchaika

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

    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.

    1. Ответ
      Ответ дан awplayru
      Спасибо вам большое!!)))
Самые новые вопросы