比赛 20100920 评测结果 AAAAAAAAAA
题目名称 牛语 最终得分 100
用户昵称 gragon 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-09-20 09:14:47
显示代码纯文本
program ex;
const
c='cow';
var
b:array[1..5] of char;
a:array[1..100] of string;
s,s1:string;
l,i,j,k,m,n,x:integer;
pd:boolean;
f:text;
begin
assign(f,'latin.in');
reset(f);
b[1]:='a';
b[2]:='i';
b[3]:='o';
b[4]:='e';
b[5]:='u';
readln(f,n);
for i:=1 to n do
  begin
  readln(f,s);
  pd:=false;
  for j:=1 to 5 do
  if (s[1]=b[j]) then
  pd:=true;;
  if pd then
    begin
    s:=s+c;
    a[i]:=s;
    end
  else
    begin
    s1:=copy(s,1,1);
    delete(s,1,1);
    s:=s+s1+'ow';
    a[i]:=s;
    end;
  end;
close(f);
assign(f,'latin.out');
rewrite(f);
for i:=1 to n do
writeln(f,a[i]);
close(f);
end.