Zitat von
Sofa5000:
var ch:char;
anz:integer;
begin
i:=-1;
repeat
ch:=readkey;
write(ch);
anz:=anz+1;
until (ch = '#');
writeln;
writeln('Die Länge des Textes beträgt ' ,anz , ' Zeichen');
end.
Aber es soll zusätzlich noch ausgegeben werden das es 8 A waren und 7 X und so weiter! wie kann ich das machen?
Da sind schon einige Hämmer drin: i ist nicht deklariert, höchstens globaler, was aber keinen Sinn macht. anz ist nicht initialisiert. Ich vermute mal, daß das ganze auf ein Array hinauslaufen soll, wobei jedem Buchstaben die Anzahl der Vorkommnisse zugeordnet werden soll.