比赛 | 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.