记录编号 7904 评测结果 AAAAAAAAAA
题目名称 硬币游戏 最终得分 100
用户昵称 Gravatarzhai 是否通过 通过
代码语言 Pascal 运行时间 0.031 s
提交时间 2008-11-12 14:05:01 内存使用 0.11 MiB
显示代码纯文本
  1. program coins;
  2. var
  3. f1,f2:text;
  4. k:integer;
  5. n:longint;
  6. procedure ini;
  7. begin
  8. assign(f1,'coins.in');reset(f1);
  9. assign(f2,'coins.out');rewrite(f2);
  10. readln(f1,k);
  11. end;
  12. procedure main;
  13. var
  14. i:integer;
  15. begin
  16. for i:=1 to k do begin
  17. readln(f1,n);
  18. if n>2 then writeln(f2,'Bob')
  19. else writeln(f2,'Alice');
  20. end;
  21. close(f1);
  22. close(f2);
  23. end;
  24. begin
  25. ini;
  26. main;
  27. end.