记录编号 68725 评测结果 A
题目名称 [CodoJam2012] 奇怪的语言 最终得分 100
用户昵称 Gravatar赵寒烨 是否通过 通过
代码语言 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.