Комментарии: Решаем задачи Абрамян на Паскале. String70

Автор: Bronislav

Bronislav — Tue, 19 Feb 2019 15:35:04 +0000

program String70; //pabc.net

// uses PT4;

begin

// Task('String70');

var S := new Stack<char>();

var str := ReadlnString();

var Left := '({[';

var Right := ')}]';

var err := False;

var j := 0;

while (j < str.Length) and (not err) do

begin

j += 1;

if str[j] in Left then

S.Push(str[j])

else if str[j] in Right then

begin

if (S.Count <> 0) and

(Pos(S.Peek, Left) = Pos(str[j], Right)) then

S.Pop

else err := True;

end

end;

Writeln(err ? j : S.Count = 0 ? 0 : -1)

end.

Автор: Valerii

Valerii — Tue, 19 Feb 2019 09:23:11 +0000

В ответ на Anton. суть в том , когда тебе вводят например ((([[]))]) программа должна выдавать не 0, потому что скобки пересекаются, в одной скобке открывается другая, а в третьей закрывается, должна вывестись ошибка по идее

Автор: Anton

Anton — Fri, 26 Jan 2018 06:18:09 +0000

Переменная действительно лишняя, поправил.
Было:

1	S,C:String;

Стало:

C:String;

А какие симптомы, что она не работает?

Автор: Студент

Студент — Tue, 16 Jan 2018 12:36:02 +0000

Прога не работает так как надо.
И зачем нужна строка C, если она нигде не используется?