Помогите решить задачу в Паскали ABC!!! 2.Вводится слово из 4 букв. Напечатать слово из букв, следующих по алфавиту.
Помогите решить задачу в Паскали ABC!!!
2.Вводится слово из 4 букв. Напечатать слово из букв, следующих по алфавиту.
Гость
Ответ(ы) на вопрос:
ГостьConst ss = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
Var s : String;
i : Byte;
Begin
Readln(s);
For i:=1 to Length(s) do
If s[i]='я' then s[i]:='a' else
If Pos(s[i],ss)>0 then s[i]:=ss[Pos(s[i],ss)+1];
Writeln(s);
end.
Не нашли ответ?
Похожие вопросы