Submission #5408761

---

Source Code Expand

var
    j,k,days,y,m,d:longint;//j,k月日循环变量 days月份天数上限，y m d日期
    s:string;
    rn:boolean;//判断闰年
begin
    readln(s);//输入
    val(copy(s,1,4),y);
    val(copy(s,6,2),m);
    val(copy(s,9,2),d);//拆分
    if ((y mod 4=0)and(y mod 400<>0)and(y mod 100<>0))or((y mod 4=0)and(y mod 400=0)) then rn:=true;
    for j:=m to 12 do//月份循环
        begin
            //判断月份，赋予月份天数上限----------------------------
            case j of
                1,3,5,7,8,10,12:days:=31;
                4,6,9,11:days:=30;
                2:days:=28;
            end;
            if (j=2)and(rn) then days:=29;
            //----------------------------------------------------
            for k:=d to days do//日期循环
                if (y mod j=0)and(y div j mod k=0) then//满足条件
                    begin
                        write(y,'/');
                        if j<10 then write(0);//补0
                        write(j,'/');
                        if k<10 then write(0);
                        write(k);
                        writeln;//换行，满足题目要求
                        halt;//退出
                    end;
            d:=1;//下个月的日期循环从1号开始
        end;
    writeln(y+1,'/01/01');//如果这一年没有一天满足条件则输出下一年1月1日
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result