Автор: Антон

Антон — Wed, 07 Oct 2020 22:09:47 +0000

var
  s:string;
  begin
    readln (s);
    for var i:=1 to length(s) do
      begin
       if (ord(s[i])>1040) and (ord(s[i])<1073) then s[i]:=chr(ord(s[i])+1);
       if (ord(s[i])=1072) then s[i]:=chr(1040);
       if (ord(s[i])>1072) and (ord(s[i])<1104) then s[i]:=chr(ord(s[i])+1);
       if (ord(s[i])=1104) then s[i]:=chr(1072);
      end;
        write (s);
  end.

var

s:string;

begin

readln (s);

for var i:=1 to length(s) do

begin

if (ord(s[i])>1040) and (ord(s[i])<1073) then s[i]:=chr(ord(s[i])+1);

if (ord(s[i])=1072) then s[i]:=chr(1040);

if (ord(s[i])>1072) and (ord(s[i])<1104) then s[i]:=chr(ord(s[i])+1);

if (ord(s[i])=1104) then s[i]:=chr(1072);

end;

write (s);

end.

Автор: Антон

Антон — Wed, 07 Oct 2020 22:04:59 +0000

тут цифры номерам юникода русских букв не соответствуют и вследствии код совсем не меняет изначальную строку.

Комментарии: Решаем задачи Абрамян на Паскале. String62

Автор: Антон

Автор: Антон