Ответы на вопрос:
var
s: string;
c1, c2, i: integer;
begin
writeln('введите строку');
readln(s);
c1 : = 0;
c2 : = 0;
for i : = 1 to length(s) do
begin
if s[i] = '(' then
inc(c1);
if s[i] = ')' then
begin
inc(c2);
if c2 > c1 then
begin
writeln('скобки расставленны неверно');
exit;
end;
end;
end;
if c1 = c2 then
writeln('скобки расставлены верно')
else
writeln('скобки расставленны неверно');
end.
Популярно: Информатика
-
trunczova8413.09.2022 23:40
-
Artemov9Artem28.01.2021 11:26
-
MR3AlI10.06.2023 10:17
-
nastunya2213.05.2021 10:32
-
skyline1234521.12.2020 19:36
-
sofavorobyova1729.03.2021 16:26
-
Mamaluska06.08.2020 12:39
-
моника5901.03.2022 20:20
-
elmalfoy7313.06.2022 02:59
-
baus10008.04.2020 08:33