1087.c

平时acm训练时ac的源代码

program timetotakesnones;
 var n,m:integer;
     a:array[0..10000] of byte;
     b:array[1..50] of integer;
     i,k:integer;
     minb:integer;
     position:integer;
	begin
    Assign(input,'input.txt');
    Reset(input);
    readln(n,m);
    for i:=1 to m do read(b[i]);
    minb:=b[1];
    for i:=2 to m do if b[i]<minb then minb:=b[i];
    fillchar(a,sizeof(a),0);
    a[0]:=1;
    if minb>=n then writeln(2)
		else begin
     {}
		  for i:=1 to minb do a[i]:=0;
      for i:=minb+1 to n do begin
        position:=0;
        for k:=1 to m do
          if (i-b[k]>=0) then
          	if a[i-b[k]]=0 then begin position:=1; break;  end;
        a[i]:=position;
    	end;
     {}
     if a[n]=1 then writeln(1) else writeln(2);
    end;
	end.