Задан фрагмент текста. проверить, имеется ли - вопрос №335485 от Tvoyainta 21.05.2021 09:00

Question

Информатика: Задан фрагмент текста. проверить, имеется ли в нем открывающих и закрывающих круглых скобок. рекомендации: должно существовать взаимно однозначное соответствие открывающих и закрывающих скобок, при котором открывающая скобка всегда предшествует соответствующей.

Tvoyainta · Answer

var s:string; i,n:integer;

Begin

read(s);

for i := 1 to length(s) do begin

if s[i]="(" then n=n+1;

if s[i]=")" then n=n-1;

if n<0 then begin

Write("нет баланса");

halt;

end;

Write("есть баланс");

End