Submission #3996728

---

Source Code Expand

var n,i,j,z:longint;
s:string;
f:array[1..100] of longint;

begin
readln(n);
readln(s);
fillchar(f,sizeof(f),63);
f[1]:=0;
if s[1]='X' then f[1]:=1;
for i:=1 to n do
  begin
  for j:=1 to 3 do
    if j+i>n then break
  else
    begin
    z:=0;
    if s[j+i]='X' then z:=1;
    if f[i]+z<f[i+j] then f[i+j]:=f[i]+z;
    end;
  end;
writeln(f[n]);

end.

Submission Info

Compile Error

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

Judge Result