Регистрация
ХАМЕЧОКЕ2036
26.04.2020 02:42
Информатика
Есть ответ 👍

Люди, ! у меня билет попался: проектирование проектных презентации окно программы powerpoint это вопрос, что мне тут надо

278
475
Посмотреть ответы 1

Ответы на вопрос:

втклр
втклр
4,7(71 оценок)

var

  s: string;

  c1, c2, i: integer;

begin

  writeln('введите строку');

  readln(s);

  c1 : = 0;

  c2 : = 0;

  for i : = 1 to length(s) do

  begin

      if s[i] = '(' then

          inc(c1);

      if s[i] = ')' then

      begin

          inc(c2);

          if c2 > c1 then

          begin

              writeln('скобки расставленны неверно');

              exit;

          end;

      end;

  end;

  if c1 = c2 then

      writeln('скобки расставлены верно')

  else

      writeln('скобки расставленны неверно');

end.

Популярно: Информатика