Паскаль!

Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.

Question

Информатика

Сергуня

13 декабря, 05:15

Паскаль!

Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.

+4

Ответы (1)

Знаете ответ на вопрос?

Павлин · Answer 1

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.

Пример:

Введите строку:

база

роза