Информатика, опубликовано 2018-08-22 19:14:04 by Гость
СРОЧНО! Напишите код в ТУРБО паскаль, пожалуйста. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.