Ответы на вопрос:
var s: string;
begin
read(s);
while pos('ба',s)> 0 do
delete(s,pos('ба',s),2);
write(s)
end.
Популярно: Информатика
-
Start: =23 end: =49 sum: =0 нц для a от start до end если mod(a, 2)...
evika844427.02.2020 14:48 -
Рассчитай объём видеопамяти, необходимой для хранения графического изображения,...
Юшут06.12.2022 22:27 -
Вмассиве a находятся 10 чисел: 1, -1, 2, 7, 5, 6, 8, 9, 0, 3. дан фрагмент...
Ираказефирка08.12.2022 08:29 -
На Паскале. Вычислить сумму бесконечного ряда с заданной точностью ,...
Juicemonk300015.01.2021 22:23 -
Можно ли в корректно составленной программе быть следующий оператор...
MAMAV14721.05.2023 23:07 -
В одномерном массиве размерностью N случайных чисел в интервале от -30...
Малой9818.10.2020 23:32 -
, денежное вознаграждение. нужно написать простой батник в среде ms-dos...
Versusmag22801.04.2023 05:47 -
Какой используется знак при оформлении календаря погоды...
Zanaar14.06.2020 12:49 -
10) вася составляет 5-буквенные слова, в которых есть только буквы б,...
Mika12312317.01.2022 04:23 -
Написать программу в паскале. в заданном массиве найти количество чётных...
alishraup24.08.2020 20:14