Program Cifra;
var
n: string;
cifri: array[0..9] of byte;
i: integer;
Begin
writeln(‘Vnesi broj’);
readln(n);
for i:=1 to Length(n) do
case n[i] of
’0′: cifri[0]:=cifri[0]+1;
’1′: cifri[1]:=cifri[1]+1;
’2′: cifri[2]:=cifri[2]+1;
’3′: cifri[3]:=cifri[3]+1;
’4′: cifri[4]:=cifri[4]+1;
’5′: cifri[5]:=cifri[5]+1;
’6′: cifri[6]:=cifri[6]+1;
’7′: cifri[7]:=cifri[7]+1;
’8′: cifri[8]:=cifri[8]+1;
’9′: cifri[9]:=cifri[9]+1;
end;
for i:=0 to 9 do
writeln(‘Brojot ‘,i,’ se povtoruva ‘,cifri[i],’ pati’);
readln();
end.
