Guest User

Untitled

a guest
Jul 17th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.27 KB | None | 0 0
  1. program homework;
  2. var word:string; i,n:integer;
  3.         c:char;
  4. begin
  5. write('Word: ');
  6. readln(word);
  7. write('Character: ');
  8. readln(c);
  9. n:=0;
  10. write('Count of char ' + c + ' =  ');
  11.  for i:=1 to length(word) do
  12.  if word[i] =c then n:=n+1;
  13. write(n);
  14. readln();
  15.  end.
Add Comment
Please, Sign In to add comment