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