Untitled

mail@pastecode.io avatar
unknown
pascal
2 years ago
227 B
8
Indexable
Never
uses crt;
var a:array[0..1000] of longint;
    s:ansistring;
    i:longint;
begin
	clrscr;
	readln(s);
	for i:=1 to length(s) do
	    inc(a[ord(s[i])]);
	for i:=1 to 255 do
	if a[i]>0 then writeln(chr(i),' ',a[i]);
	readln
end.