切换到宽版
发帖 回复
返回列表
12
  • 12047阅读
  • 13回复

问下ZJU2042 [复制链接]

 上一主题 下一主题
离线eagleoi
OIFans初赛选手
只看该作者 10 发表于: 2006-07-30
说了枚举不行吗...
回复
举报
离线stevenjl
管理员
只看该作者 11 发表于: 2006-07-30
别的大牛写的～
复制代码
  1. const maxk=100;
  2. var old,newone:array[-maxk..maxk] of boolean;
  3.   kase,num,n,k,i,j,temp:integer;
  5. begin
  6. readln(kase);readln;
  7. for num:=1 to kase do begin
  8.   if num>=2 then begin writeln;readln;end;
  9.   readln(n,k);
  10.   fillchar(old,sizeof(old),0);old[0]:=true;
  11.   for i:=1 to n do begin
  12.     fillchar(newone,sizeof(newone),0);
  13.     read(temp);
  14.     for j:=-k to k do
  15.     if old[j] then begin
  16.       newone[(j+temp)mod k]:=true;
  17.       newone[(j-temp)mod k]:=true;
  18.     end;
  19.     old:=newone;
  20.   end;
  21.   if newone[0] then writeln(\'Divisible\')
  22.           else writeln(\'Not divisible\');
  23. end;
  24. end.
Dream Walker...
回复
举报
离线r134a
OIFans全国铜奖
只看该作者 12 发表于: 2006-07-30
一个字，强！！！~~~~我对大牛的敬仰犹如滔滔江水连绵不绝~~~~
.


祝大家明年NOIP大获全盛!


.
回复
举报
离线勇气les
OIFans复赛选手
只看该作者 13 发表于: 2006-07-31
谢谢————
回复
举报
发帖 回复
返回列表
12
快速回复
限100 字节
 
上一个 下一个