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))
Число открывающих и закрывающих скобок совпадает