Помогите решить задачу в Паскали ABC!!! 2.Вводится слово из 4 букв. Напечатать слово из...

0 голосов
35 просмотров

Помогите решить задачу в Паскали ABC!!!
2.Вводится слово из 4 букв. Напечатать слово из букв, следующих по алфавиту.


Информатика (80 баллов) | 35 просмотров
0

буквы русски, английские? или не важно и достаточно просто подставить следующие символы по таблице ASCII ?

0

Программа пишется на английском.Нет символы в таблице ASCII подставлять не надо) Пример: 'лето' - 'мжуп', вот подобие этого, должна выводить программа ответ)

0

после "е" идёт по алфавиту "ё", так что ответ будет "мёуп"

Дан 1 ответ
0 голосов

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.

(5.1k баллов)