Question

Помогите пожалуйста решить задачу в Pascal вот задача:Проверить, одинаковое ли число открывающих и закрывающих скобок в данной строке. Перед тем как дать ответ проверьте его сами в программе работает ли и скиньте скриншот

Answer 1

var
a:string;
i,k,n:integer;
begin
    readln(a);
         for i:=1 to length(a) do
            begin
               if a[i]='('then
                   k:=k+1;
                if a[i]=')'then
                  n:=n+1;
            end;
if k=n then
   writeln('Y')
else
   writeln('N');
end.

Answer 2

var
  s:string;
  i,k:integer;
begin
  Write('Введите строку'); Readln(s);
  k:=0;
  for i:=1 to Length(s) do
    case s[i] of
    '(': Inc(k);
    ')': Dec(k)
    end;
  if k=0 then Writeln('Число открывающих и закрывающих скобок совпадает')
  else Writeln('Число открывающих и закрывающих скобок не совпадает')
end.

Тестовое решение:
Введите строку(2+3/(3-5)-4*(5+7))
Число открывающих и закрывающих скобок совпадает