Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Программирование в паскаль abc.ОПЕРАТОР CASE
Ввести с клавиатуры левую скобку. Напечатать соответствующую ей правую.

Ответ оставил Гость

// PascalABC.Net 3.0, сборка 1066
var
  c:char;
begin
  Write(Введите левую скобку: ); Readln(c);
  case c of
  (:Writeln());
  [:Writeln(]);
  {:Writeln(});
  else Writeln(неверный символ)
  end
end.