Vypsat, z jakých cifer se skládá zadané číslo v Delphi

[priknprikn]

Posím potřebuji pomoct, dostali jsme za úkol v Delphi (Borland Delphi 7):
Vypsat, z jakých cifer se skládá zadané číslo. Například číslo 2588 se skládá z cifer 2, 5 a 8.

[Maranov]

Pseudokód:

Kód: Vybrat vše

// pole použitých cifer
Boolean cifry[10];
// vynulování pole na počátku
for (int i = 0; i < 10; i++)
    cifry[i] = false;
// zjištění cifer
do
{
    cifry[číslo % 10] = true;  // operace číslo % 10 navrátí poslední cifru (zbytek po dělení), danou cifru označíme jako použitou
    číslo /= 10;  // číslo zmenšíme o tu cifru, kterou jsme již zaznamenali
} while (číslo != 0)  // pokud cifry dojdou, končíme
// výpis výsledků
print("Číslo " + číslo + " se skládá z cifer: ");
for (int i = 0; i < 10; i++)
    if (cifry[i])
        print(i + " ");

proměnná /= 10; je zkrácenina pro proměnná = proměnná / 10;
% je operace modulo - zbytek po dělení
i++ je zkrácenína pro i = i + 1