В школьной библиотеке ученики одного из факультетов нашли очень старое заклинание. Но узнать, как же оно действует, они не смогли, потому что заклинание было зашифровано. Расшифруйте его — Pascal(Паскаль)

Ключ к шифру:
1. В заклинании вместо гласных букв используются первые 6 согласных букв (a=b, e=c, i=d, o=f, u=g, y=h).
2. Вместо первых шести согласных букв используются гласные буквы (b=a, c=e, d=i,f=o, g=u, h=y).
Примечание. В заклинании используются только маленькие английские буквы.

Формат ввода:
s — строка (не более 100 символов)
Формат вывода:
p — преобразованная строка

Алфавит 12 символов

Var
 S, P: string[100];
 i: byte;
const
 C: string[12] = 'abecidofugyh';
Begin
 Write('S: ');
 Readln(S);
 For i:=1 to length(S) do
  If pos(S[i],C)<>0 then
   If odd(pos(S[i],C)) then
    P:=P+C[pos(S[i],C)+1]
   else
    P:=P+C[pos(S[i],C)-1]
   else
    P:=P+S[i];
 Writeln('P: ',P);
End.

Leave a Comment

36 + = 39