Определить правильность расстановок скобок в тексте - Turbo Pascal

Формулировка задачи:

Дан файл содержащий произвольный текст. Определить правильно ли в нем расставлены скобки. (количество "("=количеству ")" )


textual

Код к задаче: «Определить правильность расстановок скобок в тексте - Turbo Pascal»

Skobka:=0;
While not EOF(F) do
Begin
  Readln(F,St);
  For i:=1 to Length(St) do
    If St[i]='(' then Inc(Skobka) else
       If St[i]=')' then Dec(Skobka);
End;
If Skobka=0 then Writeln('Правильно') 
  else Writeln('Неправильно');
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5

Источник
Похожие ответы