noip2016普及组复赛总结

9点半从纪中出发，大概11点多来到广州六中。

在六中旁边一家小餐馆吃了中餐，那餐厅真心很贵，一盆饭就要20元，我们那桌吃了四

盆......    XC：不想买单啦~\(≧▽≦)/~啦啦啦

然后就来到六中的某个功能室百无聊赖的休息了一会儿，两点钟进考场。

两点半：

比赛开始，还是先看题...一二两题太水了，直接开码，1小时搞定两题、

三点半：

仔细阅读第三题题目，还是想不到100分做法，看来这次不能AK了，

选了70分暴力直接开切1小时搞定

四点半：

肩负着AC第四题的使命，在草稿纸上胡乱地推着式子、

貌似暴力四重循环只能拿40-50分，不行，还要继续想

然后我就把3条公式的变形全部写出来，

终于推出了三重循环，

枚举Xa、Xb、Xc三处魔法值，然后再根据公式推出第四处，1小时搞定

实测得到能拿80~85分

五点半：

还剩半个小时，继续检查，随心所欲地出着数据..............

六点： 

比赛结束~

估分：100+100+70+80=350分

洛谷得分：100+100+70+85=355分

纪中数据：100+100+70+85=355分

NOIP官方初评：100+100+70+85=355分

比赛代码：

第一题：

var    n,x1,y1,x2,y2,x3,y3,min1,min2,min3:longint;
function min(x,y:longint):longint;
begin
        if x<y then exit(x) else exit(y);
end;
begin
       assign(input,'pencil.in');reset(input);
       assign(output,'pencil.out');rewrite(output);
       readln(n);
       readln(x1,y1);
       readln(x2,y2);
       readln(x3,y3);
       if n mod x1>0 then min1:=(n div x1+1)*y1 else min1:=(n div x1)*y1;
       if n mod x2>0 then min2:=(n div x2+1)*y2 else min2:=(n div x2)*y2;
       if n mod x3>0 then min3:=(n div x3+1)*y3 else min3:=(n div x3)*y3;
       writeln(min(min(min1,min2),min3));
       close(input);close(output);
end.

第二题：

var     a:array[1..12]of longint=(31,28,31,30,31,30,31,31,30,31,30,31);
        s1,s2,s3:string;
        i,j,bz,x1,x2,x3,y1,y2,y3,tot:longint;
begin
        assign(input,'date.in');reset(input);
        assign(output,'date.out');rewrite(output);
        readln(s1);
        readln(s2);
        val(copy(s1,1,4),x1);
        val(copy(s1,5,2),x2);
        val(copy(s1,7,2),x3);
        val(copy(s2,1,4),y1);
        val(copy(s2,5,2),y2);
        val(copy(s2,7,2),y3);
        for i:=1to 4 do
                if s1[i]<>s1[9-i] then
                begin
                        bz:=1;
                        break;
                end;
        if bz=0 then inc(tot);
        while(x1<y1)or((x1=y1)and(x2<y2))or((x1=y1)and(x2=y2)and(x3<y3)) do
        begin
                inc(x3);
                if x3>a[x2] then
                begin
                        if (x2=2)and(x3=29)and(((x1 mod 4=0)and(x1 mod 100>0))or(x1 mod 400=0)) then else
                        begin
                                x3:=1;
                                inc(x2);
                                if x2>12then
                                begin
                                        x2:=1;
                                       inc(x1);
                                end;
                        end;
                end;
                str(x1,s1);
                str(x2,s2);
                str(x3,s3);
                if x2>9 then s1:=s1+s2 else s1:=s1+'0'+s2;
                if x3>9 then s1:=s1+s3 else s1:=s1+'0'+s3;
                bz:=0;
                for i:=1 to 4 do
                        if s1[i]<>s1[9-i] then
                        begin
                                bz:=1;
                                break;
                        end;
                if bz=0 then inc(tot);
        end;
       writeln(tot);
       close(input);close(output);
end.

第三题：

var     n,i,j,t,k,l:longint;
        a:array[0..1000,0..3000]of longint;
        b:array[0..100000]of longint;
        c:array[0..100000]of longint;
begin
        assign(input,'port.in');reset(input);
        assign(output,'port.out');rewrite(output);
        readln(n);
        for i:=1to n do
        begin
                read(b[i],a[i,0]);
                for j:=1 to a[i,0] do
                begin
                        read(a[i,j]);
                        inc(c[a[i,j]]);
                        if c[a[i,j]]=1 then inc(l);
                end;
                while b[i]-86400>=b[t] do
                begin
                        for k:=1 to a[t,0] do
                        begin
                                dec(c[a[t,k]]);
                                if c[a[t,k]]=0 then dec(l);
                        end;
                        inc(t);
                end;
                writeln(l);
        end;
        close(input);close(output);
end.

第四题：

var     i,j,k1,k2,n,m,t:longint;
        a:array[1..40000]of longint;
        b:array[1..15000,1..4]of int64;
        c:array[1..15000]of longint;
begin
        assign(input,'magic.in');reset(input);
        assign(output,'magic.out');rewrite(output);
        readln(n,m);
        for i:=1to m do
        begin
                readln(a[i]);
                inc(c[a[i]]);
        end;
        for i:=1to n-3 do
        begin
                if c[i]=0 then continue;
                for j:=i+1 to n-2 do
                begin
                        if c[j]=0 then continue;
                        if(j-i) mod 2=1 then continue;
                        t:=j+3*(j-i)+1;
                        if t>n-1 then break;
                        for k1:=t to n-1 do
                        begin
                                if c[k1]=0 then continue;
                                k2:=(j-i) div 2+k1;
                                if k2>n then break;
                                if c[k2]=0 then continue;
                                b[i,1]:=b[i,1]+c[j]*c[k1]*c[k2];
                                b[j,2]:=b[j,2]+c[i]*c[k1]*c[k2];
                                b[k1,3]:=b[k1,3]+c[i]*c[j]*c[k2];
                                b[k2,4]:=b[k2,4]+c[i]*c[j]*c[k1];
                        end;
                end;
        end;
        for i:=1to m do
                writeln(b[a[i],1],' ',b[a[i],2],' ',b[a[i],3],' ',b[a[i],4]);
        close(input);close(output);
end.