记录编号 18844 评测结果 AAAAAAAAAA
题目名称 [USACO Mat07] 牛语 最终得分 100
用户昵称 Gravatargragon 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2010-09-21 08:28:06 内存使用 0.14 MiB
显示代码纯文本
  1. program ex;
  2. const
  3. c='cow';
  4. var
  5. b:array[1..5] of char;
  6. a:array[1..100] of string;
  7. s,s1:string;
  8. l,i,j,k,m,n,x:integer;
  9. pd:boolean;
  10. f:text;
  11. begin
  12. assign(f,'latin.in');
  13. reset(f);
  14. b[1]:='a';
  15. b[2]:='i';
  16. b[3]:='o';
  17. b[4]:='e';
  18. b[5]:='u';
  19. readln(f,n);
  20. for i:=1 to n do
  21. begin
  22. readln(f,s);
  23. pd:=false;
  24. for j:=1 to 5 do
  25. if (s[1]=b[j]) then
  26. pd:=true;;
  27. if pd then
  28. begin
  29. s:=s+c;
  30. a[i]:=s;
  31. end
  32. else
  33. begin
  34. s1:=copy(s,1,1);
  35. delete(s,1,1);
  36. s:=s+s1+'ow';
  37. a[i]:=s;
  38. end;
  39. end;
  40. close(f);
  41. assign(f,'latin.out');
  42. rewrite(f);
  43. for i:=1 to n do
  44. writeln(f,a[i]);
  45. close(f);
  46. end.