Заменить каждую букву строки на идущую через две по алфавиту

@Lennis · Регистрация: 27.09.2012

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

Дана строка из кириллических символов. Заменить каждую букву на идущую через две по алфавиту. Например, вход: «эюя» выход: «яаб»

SOS

заранее спасибо)

@КонецСвета · 30.09.2012, 13:43

Pascal

var s: string;
begin
write('s=');readln(s);
for var i:=1 to length(s) do
    if s[i] in ['Ю','Я','ю','я'] then s[i]:=chr(ord(s[i])-30) else
      if s[i] in ['А'..'Э','а'..'э'] then s[i]:=chr(ord(s[i])+2);
write(s);
end.

@Lennis 0 / 0 / 0 Регистрация: 27.09.2012 Сообщений: 4
		1
	Заменить каждую букву строки на идущую через две по алфавиту 30.09.2012, 13:34. Показов 1379. Ответов 1 Метки нет (Все метки) Дана строка из кириллических символов. Заменить каждую букву на идущую через две по алфавиту. Например, вход: «эюя» выход: «яаб» SOS заранее спасибо) 0

	30.09.2012, 13:43

Заменить каждую букву строки на идущую через две по алфавиту

Решение