Question

Найдите ошибку в программе, выдаёт ошибку типа: Встречено 'WRITELN', а ожидалось ';' Даю 25 баллов PROGRAM KIRILL; VAR A,B: INTEGER; BEGIN READLN (A); IF A>=0 AND A<=3 THEN WRITELN ('ВВЕДИТЕ B'); READLN (B); IF B>=0 AND B<=3 THEN WRITELN ('ПОПОДАЕТ В ЗОНУ') ELSE WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ'); Exit. ELSE WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ'); Exit. END.

Answer 1

PROGRAM KIRILL;

VAR A,B: INTEGER;

BEGIN  

READLN (A);

IF (A>=0) AND (A<=3)

THEN  

WRITELN ('ВВЕДИТЕ B');

READLN (B);

IF (B>=0) AND (B<=3)

THEN  

WRITELN ('ПОПОДАЕТ В ЗОНУ')

ELSE  

BEGIN

WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ');

Exit;

END

END.

Answer 2

В данной программе есть несколько ошибок:

1. Ошибка в использовании символов ">" и "<" - они должны быть записаны как > и <.

2. Не следует использовать слово Exit без оператора IF. В данном контексте это не нужно и приведет к ошибке.

3. Необходимо добавить оператор BEGIN после первого условия IF A >= 0 AND A <= 3 THEN, чтобы заключить в него блок команд.

Исправленная версия программы:

pascalCopy code
PROGRAM KIRILL;
VAR 
  A, B: INTEGER;
BEGIN
  READLN(A);
  IF A >= 0 AND A <= 3 THEN
  BEGIN
    WRITELN('ВВЕДИТЕ B');
    READLN(B);
    IF B >= 0 AND B <= 3 THEN
      WRITELN('ПОПОДАЕТ В ЗОНУ')
    ELSE
      WRITELN('НЕ ПОПОДАЕТ В ЗОНУ');
  END
  ELSE
  BEGIN
    WRITELN('НЕ ПОПОДАЕТ В ЗОНУ');
  END;
END.

Следует отметить, что Exit в данном контексте не нужен и был удален, так как он используется для прерывания работы программы, и здесь он не играет роли.