Ключ к шифру:
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.
Похожие записи/страницы:
- Дан текст из строчных латинских букв, за которым следует точка. Определить каких букв-гласных (a,e,o,i,u) или…
- Ввести строку символов не более 50. Для каждого слова заданной строки (на русском) указать долю согласных.…
- Дан текст из цифр и строчных латинских букв, за которым следует точка. Определите, каких букв — гласных (A, E,…
- Дан текст на русском языке. Определить, каких букв больше – гласных или согласных - Pascal(Паскаль)
- Дана последовательность слов русского языка; между словами - запятая, за последним словом точка! напечатать в…
- Подсчитать число вхождений буквы f в первые три группы букв (в предположении, что текст содержит не менее трех…
- Ввести с клавиатуры предложение. Подсчитать количество согласных букв в каждом втором слове предложения -…
- В символьном массиве подсчитать количество гласных и согласных букв. Английский алфавит - Pascal(Паскаль)