В заданном тексте заменить «abc» на «*», «ou» на «ph»

@grei7 · Регистрация: 28.03.2014

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу:

В заданном тексте, если встречается сочетание «abc», заменить его символом «*»; если встречается сочетание «ou», заменить его на «ph».

Kodzaev · 28.03.2014, 15:13

Pascal

var
  s: string;
 
procedure Replace(var st: string; substr, newstr: string);
var
  p: integer;
begin
  while Pos(substr, st) > 0 do
  begin
    p := Pos(substr, st);
    Delete(st, p, Length(substr));
    Insert(newstr, st, p)
  end
end;
 
begin
  WriteLn('Введите строку: ');
  ReadLn(s);
  Replace(s, 'abc', '*');
  Replace(s, 'ou', 'ph');
  WriteLn('Полученная строка:');
  WriteLn(s)
end.

@grei7 0 / 0 / 0 Регистрация: 28.03.2014 Сообщений: 30
		1
	В заданном тексте заменить «abc» на «», «ou» на «ph» 28.03.2014, 14:48. Показов* 1196. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать программу: В заданном тексте, если встречается сочетание «abc», заменить его символом «*»; если встречается сочетание «ou», заменить его на «ph». 0

	28.03.2014, 15:13

В заданном тексте заменить «abc» на «*», «ou» на «ph»

Решение