Что делать если в строке readln (x); выводит ошибку: ожидплся оператор?program dialog;uses crt;var x:string;begin clrscr; writeln ('Òû ïîåäåøü ëåòîì â Èòàëèþ?'); readln (x); if (x='ÄÀ') or (x='Äà') or (x='äà') then writeln...
Что делать если в строке 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.
Гость
Ответ(ы) на вопрос:
ГостьПосле этих строк поставь ; и всё должно заработать
writeln ('Òû ïîéäåøü çàâòðà â øêîëó?')
then writeln ('À ó íàñ çàâòðà âûõîäíîé!')
Не нашли ответ?
Похожие вопросы