Решаем задачи Абрамян на Паскале. String64

String64. Дано зашифрованное предложение на русском языке (способ шифрования описан в задании String63) и кодовое смещение $$K (0 < K < 10)$$. Расшифровать предложение.

Решение:

program String64;
var
 S:String;
 i,i2,K:integer;

begin
  Write('S: ');
  Readln(S);
  Write('K:');
  Readln(K);

  for i2:=1 to K do
   begin
    i:=1;
    while (i<=Length(S)) do
     begin
      case ord(S[i]) of
       129..159,161..173,225..239:  S[i]:=chr(ord(S[i])-1);
       128: S[i]:=chr(159);
       224: S[i]:=chr(175);
       160: S[i]:=chr(239);
      end;
      inc(i);
    end;
   end;
  Writeln(S);
end.

program String64;

var

S:String;

i,i2,K:integer;

begin

Write('S: ');

Readln(S);

Write('K:');

Readln(K);

for i2:=1 to K do

begin

i:=1;

while (i<=Length(S)) do

begin

case ord(S[i]) of

129..159,161..173,225..239: S[i]:=chr(ord(S[i])-1);

128: S[i]:=chr(159);

224: S[i]:=chr(175);

160: S[i]:=chr(239);

end;

inc(i);

end;

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String64

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ