a guest Sep 20th, 2017 127 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- program n8;
- count:array[char] of word;
- while not eof(input) do begin
- for i:=0 to 255 do
- if count[chr(i)]<>0 then writeln(chr(i),' ',count[chr(i)])
RAW Paste Data