Решаем задачи Абрамян на Паскале. String69

String69. Дана строка, содержащая латинские буквы и круглые скобки. Если скобки расставлены правильно (то есть каждой открывающей соответствует одна закрывающая), то вывести число $$0$$. В противном случае вывести или номер позиции, в которой расположена первая ошибочная закрывающая скобка, или, если закрывающих скобок не хватает, число $$–1$$.

Решение:

program String69;
var
 S:String;
 i,Num,Error:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  error:=0;
  while (i<=Length(S)) do
   begin
    if S[i]='(' then Num:=Num+1;
    if S[i]=')' then Num:=Num-1;
    if (Num<0) and (error=0) then error:=i;
    inc(i);
   end;

  if error<>0 then Writeln(error)
   else if Num>0 then Writeln(-1)
    else Writeln(0);
end.

program String69;

var

S:String;

i,Num,Error:integer;

begin

Write('S: ');

Readln(S);

i:=1;

error:=0;

while (i<=Length(S)) do

begin

if S[i]='(' then Num:=Num+1;

if S[i]=')' then Num:=Num-1;

if (Num<0) and (error=0) then error:=i;

inc(i);

end;

if error<>0 then Writeln(error)

else if Num>0 then Writeln(-1)

else Writeln(0);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String69

Комментарии:

Добавить комментарий Отменить ответ