Пожалуйста исправите ошибку в программе program zagadki2; var a, b, c, d:string;  begin  CLS;  writeln('Привет, я программа, загаывающая загадки');   writeln('Будешь отгадывать ?');  readln(a);  if a: = ('да') then writeln('Зи...

Пожалуйста исправите ошибку в программе program zagadki2; var a, b, c, d:string;  begin  CLS;  writeln('Привет, я программа, загаывающая загадки');   writeln('Будешь отгадывать ?');  readln(a);  if a: = ('да') then writeln('Зимой и летом одним цветом.')  else  begin  writeln('пока');   Readln(a); end;  if b: = ('ёлка') then writeln('правильно!')  else  begin  writeln('нет,попробуй ещё раз');  Readln(b);  if b: = ('ёлка') then writeln('правильно!!!')  end;  writeln('Сидит красавица в темнице, а коса на улице.');  Readln(c);  if c: = ('морковь') then writeln('правильно!')  else  begin  writeln('попробуй ещё раз');  Readln(c);  if c: = ('морковь') then writeln('правильно')  end;  writeln('Не лает, не кусает, да в дом не пускает.');  Readln(d);  if c = ('замок') then writeln('правильно') else  begin  writeln('попробуй ещё раз');  Readln(d);  if c: = ('замок') then writeln('правильно');  end;   end.
Гость
Ответ(ы) на вопрос:
Гость
program zagadki2; var a, b, c, d:string; label r; begin writeln('Привет, я программа, загаывающая загадки'); writeln('Будешь отгадывать ?'); readln(a); if a = 'да' then writeln('Зимой и летом одним цветом.') else begin writeln('пока'); goto r; end; Readln(b); if b = 'ёлка' then writeln('правильно!') else begin writeln('нет,попробуй ещё раз'); Readln(b); if b = 'ёлка' then writeln('правильно!!!') end; writeln('Сидит красавица в темнице, а коса на улице.'); Readln(c); if c = 'морковь' then writeln('правильно!') else begin writeln('попробуй ещё раз'); Readln(c); if c = 'морковь' then writeln('правильно') end; writeln('Не лает, не кусает, да в дом не пускает.'); Readln(d); if d = 'замок' then writeln('правильно') else begin writeln('попробуй ещё раз'); Readln(d); if d = 'замок' then writeln('правильно'); end; r: end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы