Помогите составить программу

В зависимости от того введена ли открытая скобка или закрытая, напечатать "открытая круглая скобка" или "закрытая фигурная скобка". (учитывать круглые, квадратные, фигурные скобки)

Question

Информатика

Миропия

10 июля, 19:58

Помогите составить программу

В зависимости от того введена ли открытая скобка или закрытая, напечатать "открытая круглая скобка" или "закрытая фигурная скобка". (учитывать круглые, квадратные, фигурные скобки)

+2

Ответы (1)

Знаете ответ?

Федан · Answer 1

Var c:char;

begin

writeln ('Введи скобку') ;

readln (c) ;

case c of

'[', '{', ' (':writeln ('Вы ввели открывающуюся скобку') ;

']', '}', ') ':writeln ('Вы ввели закрывающуюся скобку') ;

else writeln ('Вы ввели не скобку, попробуйте еще раз') ;

end;

end.