Submission #2252010


Source Code Expand

var
    j,k,days,y,m,d:longint;
    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);
                        write(j,'/');
                        if k<10 then write(0);
                        write(k);
                        writeln;
                        halt;
                    end;
            d:=1;
        end;
    writeln(y+1,'/01/01');
end.

Submission Info

Submission Time
Task B - 割り切れる日付
User luogu_bot3
Language Pascal (FPC 2.6.2)
Score 100
Code Size 979 Byte
Status AC
Exec Time 0 ms
Memory 128 KB

Compile Error

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

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 124
Set Name Test Cases
All 00_retmax.txt, 00_retmin.txt, 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 01_rnd_11.txt, 01_rnd_12.txt, 01_rnd_13.txt, 01_rnd_14.txt, 01_rnd_15.txt, 01_rnd_16.txt, 01_rnd_17.txt, 01_rnd_18.txt, 01_rnd_19.txt, 02_last_01_0_0.txt, 02_last_01_0_1.txt, 02_last_01_1_0.txt, 02_last_01_1_1.txt, 02_last_01_2_0.txt, 02_last_01_2_1.txt, 02_last_01_3_0.txt, 02_last_01_3_1.txt, 02_last_02_0_0.txt, 02_last_02_0_1.txt, 02_last_02_1_0.txt, 02_last_02_1_1.txt, 02_last_02_2_0.txt, 02_last_02_2_1.txt, 02_last_02_3_0.txt, 02_last_02_3_1.txt, 02_last_03_0_0.txt, 02_last_03_0_1.txt, 02_last_03_1_0.txt, 02_last_03_1_1.txt, 02_last_03_2_0.txt, 02_last_03_2_1.txt, 02_last_03_3_0.txt, 02_last_03_3_1.txt, 02_last_04_0_0.txt, 02_last_04_0_1.txt, 02_last_04_1_0.txt, 02_last_04_1_1.txt, 02_last_04_2_0.txt, 02_last_04_2_1.txt, 02_last_04_3_0.txt, 02_last_04_3_1.txt, 02_last_05_0_0.txt, 02_last_05_0_1.txt, 02_last_05_1_0.txt, 02_last_05_1_1.txt, 02_last_05_2_0.txt, 02_last_05_2_1.txt, 02_last_05_3_0.txt, 02_last_05_3_1.txt, 02_last_06_0_0.txt, 02_last_06_0_1.txt, 02_last_06_1_0.txt, 02_last_06_1_1.txt, 02_last_06_2_0.txt, 02_last_06_2_1.txt, 02_last_06_3_0.txt, 02_last_06_3_1.txt, 02_last_07_0_0.txt, 02_last_07_0_1.txt, 02_last_07_1_0.txt, 02_last_07_1_1.txt, 02_last_07_2_0.txt, 02_last_07_2_1.txt, 02_last_07_3_0.txt, 02_last_07_3_1.txt, 02_last_08_0_0.txt, 02_last_08_0_1.txt, 02_last_08_1_0.txt, 02_last_08_1_1.txt, 02_last_08_2_0.txt, 02_last_08_2_1.txt, 02_last_08_3_0.txt, 02_last_08_3_1.txt, 02_last_09_0_0.txt, 02_last_09_0_1.txt, 02_last_09_1_0.txt, 02_last_09_1_1.txt, 02_last_09_2_0.txt, 02_last_09_2_1.txt, 02_last_09_3_0.txt, 02_last_09_3_1.txt, 02_last_10_0_0.txt, 02_last_10_0_1.txt, 02_last_10_1_0.txt, 02_last_10_1_1.txt, 02_last_10_2_0.txt, 02_last_10_2_1.txt, 02_last_10_3_0.txt, 02_last_10_3_1.txt, 02_last_11_0_0.txt, 02_last_11_0_1.txt, 02_last_11_1_0.txt, 02_last_11_1_1.txt, 02_last_11_2_0.txt, 02_last_11_2_1.txt, 02_last_11_3_0.txt, 02_last_11_3_1.txt, 02_last_12_0_0.txt, 02_last_12_0_1.txt, 02_last_12_1_0.txt, 02_last_12_1_1.txt, 02_last_12_2_0.txt, 02_last_12_2_1.txt, 02_last_12_3_0.txt, 02_last_12_3_1.txt, 03_special_01.txt, 03_special_02.txt, 03_special_03.txt
Case Name Status Exec Time Memory
00_retmax.txt AC 0 ms 128 KB
00_retmin.txt AC 0 ms 128 KB
00_sample_00.txt AC 0 ms 128 KB
00_sample_01.txt AC 0 ms 128 KB
00_sample_02.txt AC 0 ms 128 KB
01_rnd_00.txt AC 0 ms 128 KB
01_rnd_01.txt AC 0 ms 128 KB
01_rnd_02.txt AC 0 ms 128 KB
01_rnd_03.txt AC 0 ms 128 KB
01_rnd_04.txt AC 0 ms 128 KB
01_rnd_05.txt AC 0 ms 128 KB
01_rnd_06.txt AC 0 ms 128 KB
01_rnd_07.txt AC 0 ms 128 KB
01_rnd_08.txt AC 0 ms 128 KB
01_rnd_09.txt AC 0 ms 128 KB
01_rnd_10.txt AC 0 ms 128 KB
01_rnd_11.txt AC 0 ms 128 KB
01_rnd_12.txt AC 0 ms 128 KB
01_rnd_13.txt AC 0 ms 128 KB
01_rnd_14.txt AC 0 ms 128 KB
01_rnd_15.txt AC 0 ms 128 KB
01_rnd_16.txt AC 0 ms 128 KB
01_rnd_17.txt AC 0 ms 128 KB
01_rnd_18.txt AC 0 ms 128 KB
01_rnd_19.txt AC 0 ms 128 KB
02_last_01_0_0.txt AC 0 ms 128 KB
02_last_01_0_1.txt AC 0 ms 128 KB
02_last_01_1_0.txt AC 0 ms 128 KB
02_last_01_1_1.txt AC 0 ms 128 KB
02_last_01_2_0.txt AC 0 ms 128 KB
02_last_01_2_1.txt AC 0 ms 128 KB
02_last_01_3_0.txt AC 0 ms 128 KB
02_last_01_3_1.txt AC 0 ms 128 KB
02_last_02_0_0.txt AC 0 ms 128 KB
02_last_02_0_1.txt AC 0 ms 128 KB
02_last_02_1_0.txt AC 0 ms 128 KB
02_last_02_1_1.txt AC 0 ms 128 KB
02_last_02_2_0.txt AC 0 ms 128 KB
02_last_02_2_1.txt AC 0 ms 128 KB
02_last_02_3_0.txt AC 0 ms 128 KB
02_last_02_3_1.txt AC 0 ms 128 KB
02_last_03_0_0.txt AC 0 ms 128 KB
02_last_03_0_1.txt AC 0 ms 128 KB
02_last_03_1_0.txt AC 0 ms 128 KB
02_last_03_1_1.txt AC 0 ms 128 KB
02_last_03_2_0.txt AC 0 ms 128 KB
02_last_03_2_1.txt AC 0 ms 128 KB
02_last_03_3_0.txt AC 0 ms 128 KB
02_last_03_3_1.txt AC 0 ms 128 KB
02_last_04_0_0.txt AC 0 ms 128 KB
02_last_04_0_1.txt AC 0 ms 128 KB
02_last_04_1_0.txt AC 0 ms 128 KB
02_last_04_1_1.txt AC 0 ms 128 KB
02_last_04_2_0.txt AC 0 ms 128 KB
02_last_04_2_1.txt AC 0 ms 128 KB
02_last_04_3_0.txt AC 0 ms 128 KB
02_last_04_3_1.txt AC 0 ms 128 KB
02_last_05_0_0.txt AC 0 ms 128 KB
02_last_05_0_1.txt AC 0 ms 128 KB
02_last_05_1_0.txt AC 0 ms 128 KB
02_last_05_1_1.txt AC 0 ms 128 KB
02_last_05_2_0.txt AC 0 ms 128 KB
02_last_05_2_1.txt AC 0 ms 128 KB
02_last_05_3_0.txt AC 0 ms 128 KB
02_last_05_3_1.txt AC 0 ms 128 KB
02_last_06_0_0.txt AC 0 ms 128 KB
02_last_06_0_1.txt AC 0 ms 128 KB
02_last_06_1_0.txt AC 0 ms 128 KB
02_last_06_1_1.txt AC 0 ms 128 KB
02_last_06_2_0.txt AC 0 ms 128 KB
02_last_06_2_1.txt AC 0 ms 128 KB
02_last_06_3_0.txt AC 0 ms 128 KB
02_last_06_3_1.txt AC 0 ms 128 KB
02_last_07_0_0.txt AC 0 ms 128 KB
02_last_07_0_1.txt AC 0 ms 128 KB
02_last_07_1_0.txt AC 0 ms 128 KB
02_last_07_1_1.txt AC 0 ms 128 KB
02_last_07_2_0.txt AC 0 ms 128 KB
02_last_07_2_1.txt AC 0 ms 128 KB
02_last_07_3_0.txt AC 0 ms 128 KB
02_last_07_3_1.txt AC 0 ms 128 KB
02_last_08_0_0.txt AC 0 ms 128 KB
02_last_08_0_1.txt AC 0 ms 128 KB
02_last_08_1_0.txt AC 0 ms 128 KB
02_last_08_1_1.txt AC 0 ms 128 KB
02_last_08_2_0.txt AC 0 ms 128 KB
02_last_08_2_1.txt AC 0 ms 128 KB
02_last_08_3_0.txt AC 0 ms 128 KB
02_last_08_3_1.txt AC 0 ms 128 KB
02_last_09_0_0.txt AC 0 ms 128 KB
02_last_09_0_1.txt AC 0 ms 128 KB
02_last_09_1_0.txt AC 0 ms 128 KB
02_last_09_1_1.txt AC 0 ms 128 KB
02_last_09_2_0.txt AC 0 ms 128 KB
02_last_09_2_1.txt AC 0 ms 128 KB
02_last_09_3_0.txt AC 0 ms 128 KB
02_last_09_3_1.txt AC 0 ms 128 KB
02_last_10_0_0.txt AC 0 ms 128 KB
02_last_10_0_1.txt AC 0 ms 128 KB
02_last_10_1_0.txt AC 0 ms 128 KB
02_last_10_1_1.txt AC 0 ms 128 KB
02_last_10_2_0.txt AC 0 ms 128 KB
02_last_10_2_1.txt AC 0 ms 128 KB
02_last_10_3_0.txt AC 0 ms 128 KB
02_last_10_3_1.txt AC 0 ms 128 KB
02_last_11_0_0.txt AC 0 ms 128 KB
02_last_11_0_1.txt AC 0 ms 128 KB
02_last_11_1_0.txt AC 0 ms 128 KB
02_last_11_1_1.txt AC 0 ms 128 KB
02_last_11_2_0.txt AC 0 ms 128 KB
02_last_11_2_1.txt AC 0 ms 128 KB
02_last_11_3_0.txt AC 0 ms 128 KB
02_last_11_3_1.txt AC 0 ms 128 KB
02_last_12_0_0.txt AC 0 ms 128 KB
02_last_12_0_1.txt AC 0 ms 128 KB
02_last_12_1_0.txt AC 0 ms 128 KB
02_last_12_1_1.txt AC 0 ms 128 KB
02_last_12_2_0.txt AC 0 ms 128 KB
02_last_12_2_1.txt AC 0 ms 128 KB
02_last_12_3_0.txt AC 0 ms 128 KB
02_last_12_3_1.txt AC 0 ms 128 KB
03_special_01.txt AC 0 ms 128 KB
03_special_02.txt AC 0 ms 128 KB
03_special_03.txt AC 0 ms 128 KB