chuckcher
22.07.2021 23:17

Назовем строку S правильной скобочной последовательностью, если она состоит только из символов {,},[,],(,); и выполнено хотя бы одно из следующих трех условий:

1. S — пустая строка;

2. S можно представить в виде S=S 1 +S 2 +S 3 +...+S N (N>1), где S i — непустые правильные

скобочные последовательности, а знак "+" обозначает конкатенацию (приписывание)

строк;

3. S можно представить в виде S={+C+} или S=[+C+] или S=(+C+), где C является

правильной скобочной последовательностью.

Дана строка, состоящая только из символов {,},[, ], (, ). Требуется определить, какое

минимальное количество символов надо вставить в эту строку для того, чтобы она стала

правильной скобочной последовательностью.

На входе записывается строка, состоящая только из символов {,},[,],(,). Длина строки не

превосходит 100 символов. Выведите ответ на поставленную задачу.

ДЕЛАТЬ В СИ ШАРПЕ

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
томкавеликая
08.09.2020 12:00
1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12
0,0(0 оценок)
Ответ:
FenrisYT
15.09.2021 06:43
Program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
Дан одномерный массив, получить удвоенную сумму всех положительных членов массива и найти сумму чисе
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота