Commit | Line | Data |
---|---|---|
1 | PROGRAM BUCHSTABENHAEUFIGKEIT(INPUT,OUTPUT); | |
2 | VAR BUCHST: CHAR; | |
3 | ZAEHLER: ARRAY["A".."Z"] OF INTEGER; | |
4 | BEGIN | |
5 | FOR BUCHST := "A" TO "Z" DO ZAEHLER[BUCHST] := 0; | |
6 | WHILE NOT EOF DO | |
7 | BEGIN | |
8 | WHILE NOT EOLN DO | |
9 | BEGIN | |
10 | READ(BUCHST); WRITE(BUCHST); | |
11 | IF ("A"<=BUCHST) AND (BUCHST<="Z") THEN | |
12 | ZAEHLER[BUCHST] := ZAEHLER[BUCHST] + 1 | |
13 | END; | |
14 | READLN; WRITELN | |
15 | END; | |
16 | FOR BUCHST := "A" TO "Z" DO WRITELN(BUCHST:10,ZAEHLER[BUCHST]) | |
17 | END. |