Что делать если в строке 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.
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.
More Questions From This User See All