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

Ответы 2

  • vara: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 img
    • Автор:

      ella95
    • 6 лет назад
    • 0
  • 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))Число открывающих и закрывающих скобок совпадает
    answer img
    • Автор:

      ross
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years