Дан файл содержащий произвольный текст. Определить правильно ли в нем расставлены скобки - Turbo Pascal

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

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

Код к задаче: «Дан файл содержащий произвольный текст. Определить правильно ли в нем расставлены скобки - Turbo Pascal»

textual
Var f:text;
    i,k:integer;
    s:string;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i]='(' then inc(k)
        else if s[i]=')' then dec(k);
    End;
    if k=0 then writeln('Правильно')
     else if k>0 then writeln('Не хватает ',k,' "("')
      else writeln('Не хватает ',-k,' ")"');
    Close(f);
    readln;  
End.

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы