第2回早稲田大学プログラミングコンテスト

Submission #4117186

Source codeソースコード

var
        n,ans,sum,i:longint;
        s:array[0..1000] of char;
begin
        readln(n);
        for i:=1 to n do begin
                read(s[i]);
                if s[i]='X' then inc(sum) else begin
                        ans:=ans+sum div 3;
                        sum:=0;
                end;
        end;
        writeln(ans);
end.

Submission

Task問題 B - 雨上がり
User nameユーザ名 luogu_bot5
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 AC
Score得点 50
Source lengthソースコード長 340 Byte
File nameファイル名
Exec time実行時間 0 ms
Memory usageメモリ使用量 128 KB

Compiler messageコンパイルメッセージ

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

Test case

Set

Set name Score得点 / Max score Cases
All 50 / 50 case_000.txt,case_001.txt,case_002.txt,case_003.txt,case_004.txt,case_005.txt,case_006.txt,case_007.txt,case_008.txt,case_009.txt,case_010.txt,case_011.txt,case_012.txt,case_013.txt,case_014.txt,case_015.txt,case_016.txt,case_017.txt,case_018.txt,case_019.txt,case_020.txt,case_021.txt,case_022.txt,case_023.txt,case_024.txt,case_025.txt,case_026.txt,case_027.txt,case_028.txt,case_029.txt,case_030.txt,case_031.txt,case_032.txt,case_033.txt,case_034.txt,case_035.txt,case_036.txt,case_037.txt,case_038.txt,case_039.txt,case_040.txt,case_041.txt,case_042.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
case_000.txt AC
case_001.txt AC
case_002.txt AC
case_003.txt AC
case_004.txt AC
case_005.txt AC
case_006.txt AC
case_007.txt AC
case_008.txt AC
case_009.txt AC
case_010.txt AC
case_011.txt AC
case_012.txt AC
case_013.txt AC
case_014.txt AC
case_015.txt AC
case_016.txt AC
case_017.txt AC
case_018.txt AC
case_019.txt AC
case_020.txt AC
case_021.txt AC
case_022.txt AC
case_023.txt AC
case_024.txt AC
case_025.txt AC
case_026.txt AC
case_027.txt AC
case_028.txt AC
case_029.txt AC
case_030.txt AC
case_031.txt AC
case_032.txt AC
case_033.txt AC
case_034.txt AC
case_035.txt AC
case_036.txt AC
case_037.txt AC
case_038.txt AC
case_039.txt AC
case_040.txt AC
case_041.txt AC
case_042.txt AC