Počet stejných číslel v čísle – Pascal – Fórum – Programujte.com

prosím potřebuju nutně pomoct s příkladem.... vůbec si nevím rady:
mám za úkol sepsat program který zjistí kolikrát se čísla opakují v 1 čísle.
např. zadáme číslo 155 a vypíše že v čísle 155 je 1*1 a 2*5

videl si nekdy prevody do jinejch ciselnejch soustav?
z desitkove do libovolne?
muzes zkusit z desitkove do desitkove... vyjdou ti jednotlive cislovky

Je určitě víc způsobů, jak na to. Nejjednodušší na algoritmizaci asi bude, když si vytvoříš pro každé číslo jednu proměnnou (tj 0 až 9), číslo uložíš do řetězce a ten pak po znaku projdeš a podle toho, jaké číslo se na tom místě zrovna nachází, inkrementuješ příslušnou proměnnou. Nemělo by to být těžké, takto si vystačíš i s těmi nejzákladnějšími znalostmi.

K velmi jednoduchemu vyreseni staci umet pouzit "case....of" a cely program pak mas napsany do 5 min na 20 radku.

Mně to vyšlo na 13 :-).
Nejdůležitější z těch řádků je tohle:

var pocty:array[0..9] of word;

while cislo<>0 do

 begin

 inc(pocty[cislo mod 10]);

 cislo:=cislo div 10;

 end;