Предмет: Информатика, автор: iiigor

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

Ответы

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

Похожие вопросы