Delphi-Quellcode:
for i := 1 to length(s) do
begin
if s[i] = ??? then
Zaehler := Zaehler + 1
end;
Den Rest überleg dir mal selber.
@Matze: Jetzt hab eich es auch verstanden. Gar nicht mal so dumm.
Aber ich glaube, der Lehrer dachte eher an eine Schleife.