作业问题
时限:1s内存:32M
★问题描述:
小T很喜欢数学,每天老师刚布置完作业,他就开始思考,今天他遇到了困难。
现在有很多的数字,你的任务是找出由这些数字组成的最大的数,并且这个数必须能被2,3,5整除。你可以只用其中一部分的数,但不允许出现前导0。
★数据输入:
输入数据的第一行为一个整数N。(1<=N<=1000)表示给出N个数字,每个数字范围是0—9。接下来一行有N个数,数字由空格隔开。
★结果输出:
输出你找出的最大的数,如果不存在这样的数就输出-1。
输入示例 |
输出示例 |
1 0 |
0 |
11 3 4 5 4 5 3 5 3 4 4 0 |
5554443330 |
8 3 2 5 1 5 2 2 3 |
-1 |
裸裸的贪心。
满足能被2,5整除,当且仅当数中有0且放在末尾
满足能被3整除,要让sum%3=0.
显然要取尽可能多的位数,先判断是否能全取。
用a[i]表示数字i有几个,b[i]表示%3=i的数字有几个.
若全取后%3=1,则删1个%3=1或2个%3=2.优先删删除数字少的,次优先删数字尽量小的。
若无法全取,也不够删,则无解.
同理%3=2.
若有合法解,数字必从大到小排列。
由于不能有前导0,需特判0,0,0,0……的情况。
var a:array[0..9] of longint; b:array[0..2] of longint; n,i,j,p:longint; procedure decrease(k:longint); begin if (a[k]>0) then dec(a[k]) else if (a[k+3]>0) then dec(a[k+3]) else if (a[k+6]>0) then dec(a[k+6]); end; begin read(n); fillchar(a,sizeof(a),0); for i:=1 to n do begin read(j); inc(a[j]); inc(b[j mod 3]); end; if (a[0]=0) then begin writeln('-1'); halt; end; p:=b[1] mod 3+(b[2]*2) mod 3; if (p=1) then begin if (b[1]>0) then decrease(1) else if (b[2]>1) then begin decrease(2);decrease(2); end else begin writeln('-1'); halt; end; end; if (p=2) then begin if (b[2]>0) then decrease(2) else if (b[1]>1) then begin decrease(1);decrease(1); end else begin writeln('-1'); halt; end; end; p:=0; for i:=1 to 9 do inc(p,a[i]); if (p=0) then begin writeln('0'); halt; end; for i:=9 downto 0 do for j:=1 to a[i] do write(i); writeln; end.