Напишите код в турбо паскаль, . проверить, одинаковое - вопрос №2782090 от endd1 31.01.2020 05:47

Question

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

endd1 · Answer

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....