Паскаль! Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.
Var s: string; n,k: integer; begin n:=1; k:=0; write(строка: ); readln(s); while n>0 do begin n:=pos(ба,s); if (n>0) then begin k:=k+1; s[n]:=р; s[n+1]:=о; end; end; if k>0 then writeln(новая строка: ,s) else writeln(нет слога "ба" ); end.
строка: большой баобаб новая строка: большой роороб
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
