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

@natasha_rud · Регистрация: 05.11.2012

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

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

@КонецСвета · 07.11.2012, 00:59

Pascal

uses crt;
const v='ZzЯя';
      z='AaАа';
var f1,f2: text;
    s: string;
    i: byte;
begin
assign(f1,'D:\in.txt');
assign(f2,'D:\out.txt');
reset(f1); rewrite(f2);
while not (eof (f1)) do
      begin
      readln(f1,s);
      for i:=1 to length(s) do
          if pos(s[i],v)<>0 then s[i]:=z[pos(s[i],v)] else
             if s[i] in ['A'..'Y','a'..'y','А'..'Ю','а'..'ю']
                then s[i]:=succ(s[i]);
      writeln(f2,s);
      end;
close(f1);
close(f2);
end.

@natasha_rud 0 / 0 / 0 Регистрация: 05.11.2012 Сообщений: 5
		1
	Зашифровать текст, заменив каждую его букву следующей по алфавиту 06.11.2012, 18:20. Показов 2480. Ответов 1 Метки нет (Все метки) Дан файл, содержащий некоторый текст. Зашифровать текст, заменив каждую его букву следующей по алфавиту (последнюю букву - первой). Все остальные символы оставить без изменения. 0

	07.11.2012, 00:59

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

Решение