Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
How many letters?
program ArrayChar; type niz=array['a'..'z'] of integer; var a:niz; c:char; begin for c:='a' to 'z' do a[c]:=0; while not eof(input) do begin read(c); if (c<='Z') and (c>='A') then c:=chr(ord(c)+ord('a')-ord('A')); if (c<='z') and (c>='a') then a[c]:=a[c]+1; end; for c:='a' to 'z' do if (a[c]<>0) then writeln(c,' ',a[c]); end.
run
|
edit
|
history
|
help
1
Pokazivac-dinamicka alokacija memorije
ds
123
zad27-optimized
6
For6
Tong chu so
Opdracht_1
1
Tri