Submission #4117186

---

Source Code Expand

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 Info

Compile Error

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

Judge Result