Question

Что делать если в строке readln (x); выводит ошибку: ожидплся оператор?program dialog;uses crt;var x:string;begin clrscr; writeln ('Òû ïîåäåøü ëåòîì â Èòàëèþ?'); readln (x); if (x='ÄÀ') or (x='Äà') or (x='äà') then writeln ('Îòëè÷íî, ïîåäåì âìåñòå!'); if (x='ÍÅÒ') or (x='Íåò') or (x='íåò') then writeln ('Æàëü, ïîåäó îäíà!'); writeln ('Òû ïîéäåøü çàâòðà â øêîëó?') readln (x); if (x='ÄÀ') or (x='Äà') or (x='äà') then writeln ('À ó íàñ çàâòðà âûõîäíîé!') if (x='ÍÅÒ') or (x='Íåò') or (x='íåò') then writeln ('Êëàññ! Ìîæíî çàâòðà ñõîäèòü ïîãóëÿòü!'); readln;end.

Answer 1

Нет точки с запятой, поставь

Answer 2

После этих строк поставь ; и всё должно заработать
writeln ('Òû ïîéäåøü çàâòðà â øêîëó?')
then writeln ('À ó íàñ çàâòðà âûõîäíîé!')

Answer 3

Ошибка "ожидается оператор" возникает из-за неправильного использования оператора "readln" в строке кода.

В данном случае ошибка возникает после ввода строки "readln(x);" и вызвана наличием символа "+" после данного оператора.

Чтобы устранить ошибку, необходимо удалить символ "+" после строки "readln(x);" и переписать код следующим образом:

program dialog; uses crt; var x:string; begin clrscr; writeln('Ты живешь в Эпохе?'); readln(x); if (x='ДА') or (x='Да') or (x='да') then writeln('Поздравляю, ты попал в Эпоху!'); if (x='НЕТ') or (x='Нет') or (x='нет') then writeln('Жаль, ты промахнулся!'); writeln('Ты желаешь попасть в школу?'); readln(x); if (x='ДА') or (x='Да') or (x='да') then writeln('А уж насчет попасть выходит!'); if (x='НЕТ') or (x='Нет') or (x='нет') then writeln('Понятно! Можете продолжить искать работу!'); readln; end.

После исправления кода, программа будет выполняться правильно без ошибок.