记录编号 |
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.