var i,N,k:integer;
Var s: string;
Begin
Readln(N);
Readln(s);
While ( i <> length(s)-1) do begin
If (((s[i]='R') and (s[i+1]='U')) or ((s[i]='U') and (s[i+1]='R'))) then begin
n:=n-1;
i:=i+2;
end;
i:=i+1;
end;
Writeln (N-k);
End.