poj2586

【题意】

一公司确定每月要不然盈利s元，要不然亏损d元，一年12个月不知道哪个月盈利哪个月亏损，但知道连续五个月营业额都为亏损，问是否能盈利

【输入】

多组数据

每组数据一行，包含两个数字s，d

【输出】

对于每组数据，若能盈利则输出最大盈利，否则输出'Deficit'

据说可以贪心，我搜索过的

program poj2586;var  i,j,k,s,d,ans:longint;  x:array [0..12] of longint;procedure dfs (now:longint);var  i,k,sum:longint;begin  if now>12 then    begin      k:=0;      for i:=1 to 4 do        k:=k+x[i];      sum:=k;      for i:=5 to 12 do        begin          sum:=sum+x[i];          k:=k+x[i]-x[i-5];          if k>0 then break;        end;      if k>0 then exit;      if sum>ans then ans:=sum;      exit;    end;  x[now]:=s;  dfs(now+1);  x[now]:=-d;  dfs(now+1);end;begin  while not seekeof do    begin      read(s,d);      x[0]:=0;      ans:=-1;      dfs(1);      if ans>0 then writeln(ans)               else writeln('Deficit');    end;end.