Регистрация
Astronavtka
11.10.2021 14:12
Информатика
Есть ответ 👍

решить эти примеры вообще не понимаю как их делать

278
328
Посмотреть ответы 1

Ответы на вопрос:

fedya33
fedya33
4,8(67 оценок)

pascalabc.net

begin

  var s : = readlnstring;

  var t : = '';

  foreach var c in s do

    case c of

      '(': t += c + ')';

      '[': t += c + ']';

      '{': t += c + '}';

      ')': t += '(' + c;

      ']': t += '[' + c;

      '}': t += '{' + c

    end;

  write(t)

end.

Популярно: Информатика