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

Submission #4117149

Source codeソースコード

var
        n,ans,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(ans);
        end;
        writeln(ans div 3);
end.

Submission

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

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 0 / 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 WA
case_014.txt AC
case_015.txt WA
case_016.txt WA
case_017.txt WA
case_018.txt WA
case_019.txt WA
case_020.txt WA
case_021.txt WA
case_022.txt WA
case_023.txt WA
case_024.txt WA
case_025.txt WA
case_026.txt WA
case_027.txt WA
case_028.txt WA
case_029.txt WA
case_030.txt AC
case_031.txt WA
case_032.txt WA
case_033.txt WA
case_034.txt WA
case_035.txt WA
case_036.txt WA
case_037.txt WA
case_038.txt WA
case_039.txt WA
case_040.txt WA
case_041.txt WA
case_042.txt WA