Question

Дан файл, содержащий зашифрованный русский текст. Каждая буква которого заменяется на следующую за ней (я на а). Получить в новом файле расшифровку данного текста. Решить в паскале с текстовыми файлами.

Answer 1

const alphabet="яабвгдеёжзийклмнопрстуфхцчшщъыьэюя";
var FileName:string

procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
    assign(f,FileName);
    reset(f);
    while not eof (f) do begin { пока не конец файла }
        readln (f, s);
        for i:= 1 to length(s) do begin
          k:=pos(s[i], alphabet);
            if k=1 then k=length(alphabet); {это приколы изза я}
            if k>1 then s[i]:=alphabet[k-1];
      end;
        writeln(s);
    end;
    close(f);
end;

Begin
    read(FileName);
    ReadFile;
    readln;
End.