Написать исходный код в Pascal-е.
Решить задачу по обработке строковых данных с использованием подпрограмм:
В строке, среди знаков могут встречаться открывающие и закрывающие скобки. Проверить с помощью подпрограммы равенство числа открывающихся скобок числу закрывающихся.
Var
str:string;
i, n9, n0:integer;
begin
readln(str);
for i:=1 to Length(str) do
if str[i] = ( then
n9 := n9 + 1
else
if str[i] = ) then
n0 := n0 + 1;
if n9 = n0 then
writeln(Число открывающихся скобок равно числу закрывающихся)
else
writeln(Число открывающихся скобок не равно числу закрывающихся);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
