Var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
then
begin
while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
writeln(s);
end
else writeln('В строке нет слогов "ба"');
end.
Пример:
<span>Введите строку:
база
роза</span>
1 вариант
1) Ветер, море, кораблик
2) Понятия: Система счисления, графический файл, текстовый документ, двоичные коды(?)
3) 1 - процессор, 2 - жёсткий диск
4) Понятие, суждение, умозаключение
2 вариант
1) Пушки, пристань, корабль
2) Б, Д, Ж
3) 1 - экран, 2 - склад
4) Анализ, синтез, обобщение
Информационная модель домашней библиотеки
0,1,2,3,4,5,6,7,8,9,A,B числа которые входят в 12 систему
В итоге получается
10111110
+ 11101011
21212121
Ответ: пиктограммы (11 букв)