Паскаль! Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.
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.
Пример: Введите строку: база роза
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
