Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program qq;
- var
- a: array [1..256]of integer;
- i, counter: integer;
- s: string;
- char1: char;
- begin
- read(s);
- counter := 1;
- for i := 1 to length(s) do
- begin
- if s[i] = ' ' then counter := 1;
- if (s[i] <> ' ') and (counter <> 0) then begin
- counter := 0; char1 := s[i];
- inc(a[ord(upcase(char1))]); end;
- end;
- for i := 65 to 90 do
- if a[i] >= 0 then writeln(chr(i), ' ', a[i]);
- for i := 192 to 223 do
- if a[i] >= 0 then writeln(chr(i), ' ', a[i]);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement