Напишите код в турбо паскаль, . проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

300

500

Посмотреть ответы 2

Ответы на вопрос:

daeinam095

Информатика

4,8(33 оценок)

Program abc; var a, b, i: integer; s: string; begin a : = 0; b : = 0; read(s); for i : = 1 to length(s) do begin if s[i] = '(' then inc(a) else if s[i] = ')' then inc(b); end; if a = b then writeln('одинаковое.') else writeln('разное.'); end.