Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.