pascal. pomocy prosze szybko - informatyka.

20.10.2005

08:20

[1]

Seba_ [ Junior ]

pascal. pomocy prosze szybko - informatyka.

Mam problem w napisaniu zadania. Prosze kogos o pilna pomoc. Zadanie brzmi:
Dana jest liczba naturalna n. Sprawdzić ile różnych cyfr znajduje się w liczbie.

fanlegii79 [ Konsul ]

Zadeklaruj tablice cyfry, potem ja wypelnij zerami.
nastepnie w petli dziel liczbe n przez 10 i oraz dodawaj jeden w tabeli na pozycji modulo 10.
Potem sprawdz ile pozycji w tabeli jest nie zerowe.
nie pamietam skladni ale cos takiego
cyfry[10] integer;
ile integer;
ile:=0;
for i=0 to 10 do‹
cyfry:=0;
›
while n>0 do ‹
cyfry[n mod 10]=cyfry[n mod 10]+1;
n:=n div 10;
›
for i=0 to 10
if cyfry > 0 ile:=ile+1
›