Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function OccurrencesOfChar(const S: string; const C: char): integer;
- var
- i: Integer;
- begin
- result := 0;
- for i := 1 to Length(S) do
- if S[i] = C then
- inc(result);
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement