记录编号 |
68725 |
评测结果 |
A |
题目名称 |
[CodoJam2012] 奇怪的语言 |
最终得分 |
100 |
用户昵称 |
赵寒烨 |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.000 s |
提交时间 |
2013-08-26 22:04:08 |
内存使用 |
0.17 MiB |
显示代码纯文本
const
rule:array ['a'..'z'] of char=
('y','h','e','s','o',
'c','v','x','d','u',
'i','g','l','b','k',
'r','z','t','n','w',
'j','p','f','m','a','q');
var
i,k,t:longint;
s:string;
begin
assign(input,'2012a.in');reset(input);
assign(output,'2012a.out');rewrite(output);
readln(t);
for k:=1 to t do begin
write('Case #',k,': ');
readln(s);
for i:=1 to length(s) do begin
if s[i] in ['a'..'z'] then write(rule[s[i]]);
if s[i]=' ' then write(' ');
end;
writeln;
end;
close(input);
close(output);
end.