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

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

Question

Информатика

Евграф

27 марта, 07:34

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ангела · Answer 1

Var c:char;

begin

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

readln (c) ;

case c of

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

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

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

end;

end.