logo
Войти Регистрация Спроси ai-bota


vadimmoroz903
19.09.2020 11:20

Составьте программу которая позволяет удалить все сочетания ба из строки s

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Сирена11111
Сирена11111
18.12.2021 07:15
Pascal, цикл для, составить программу. 1)последовательно вводятся 10 целых чисел. найти среднее арифметическое этих чисел...
Milana2461
Milana2461
18.12.2021 07:15
Pascal, цикл для, составить программу. 2)составить программу, запрашивающую пароль пользователя. в случае правильности пароля выводится фраза: “можно приступать к работе»....
Элла03
Элла03
18.12.2021 07:15
Вывести первые n натуральных чисел, сумма цифр которых нечётная. паскаль. через вложенные циклы со счетчиком....
plisetskayakatoy4che
plisetskayakatoy4che
18.12.2021 07:15
Pascal, цикл для, составить программу. 3)последовательно вводятся 10 целых чисел. определить каких среди них больше: положительных или отрицательных....
LizaS0404
LizaS0404
18.12.2021 07:15
Дано натуральное число n. найти и вывести все простые делители этого числа. паскаль. через вложенные циклы....
lezifequliyeva
lezifequliyeva
18.12.2021 07:15
Pascal, цикл для, составить программу. 4)ввести 12 чисел. определить сколько чисел кратно 5....
veronikamarina20062
veronikamarina20062
18.12.2021 07:15
Найти максимальный среди всех элементов тех строк заданной матрицы, которые (либо по возрастанию, либо по убыванию). составить программу в pascal....
Мери7788
Мери7788
18.12.2021 07:15
Сформулируйте условие , которую решает данная программа: var c,k: integer; begin k: =0; for c: =10 to 99 do if c mod 7 = 0 then k: =k+1; writeln( k= k); end....
Reson1
Reson1
25.09.2020 01:52
Какой результат будет выведен на форму в результате выполнения фрагмента программы? dim x as integer dim y as integer private sub command1_click() for x = 2 to 10 step...
Irishka091
Irishka091
29.09.2022 11:06
Паскаль! начальный уровень! ! с циклом while (без массива! без repeat! и т.д). максимально просто и понятно. произведение n первых нечетных чисел равно p. определить,...
Ответ:
art1610
09.10.2020 11:46

var s:string;

begin

read(s);

while pos('ба',s)>0 do

delete(s,pos('ба',s),2);

write(s)

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота