比赛 20100920 评测结果 AAAAAAAAAA
题目名称 牛语 最终得分 100
用户昵称 1102 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-09-20 09:02:59
显示代码纯文本
program xxxx;
var n,i:integer;s,s1:string;
begin
 assign(input,'latin.in');
 reset(input);
 assign(output,'latin.out');
 rewrite(output);
 readln(n);
 for i:=1 to n do
  begin
   readln(s);
   if (s[1]='a')or(s[1]='e')or(s[1]='i')or(s[1]='o')or(s[1]='u') then
    s:=s+'cow'
   else
    begin
     s1:=copy(s,1,1);
     delete(s,1,1);
     s:=s+s1+'ow';
    end;
   writeln(s);
  end;
 close(input);
 close(output);

end.