Замена букв

@Просто_Ромаха · Регистрация: 03.12.2009

Подскажите, пожалуйста!)
Как в слове "Велосипедист" все буквы "Е" заменить на буквы "Ы"?

@Inadequate · 04.12.2009, 19:10

Pascal

var
  s:string;
begin
  s:='Велосипедист';
  for i:=1 to length(s) do
    if s[i] in ['Е','е'] then
      s[i]:='ы';
  writeln(s)
end.

@Просто_Ромаха 0 / 0 / 0 Регистрация: 03.12.2009 Сообщений: 3
		1
	Замена букв 04.12.2009, 19:05. Показов 1520. Ответов 1 Метки нет (Все метки) Подскажите, пожалуйста!) Как в слове "Велосипедист" все буквы "Е" заменить на буквы "Ы"? 0

Опции темы

Решение