Подсчитать, сколько раз в числе встречается каждая цифра от 0 до 9

YaDimkoo

Вводится любое число. Нужно подсчитать сколько раз в нем встречается каждая цифра от 0 до 9? В паскале.
2 ответа

YaDimkoo

Var n,i:longint;
    A:array[0..9] of byte;
Begin
    write('Введите число: ');readln(n);
    While n>0 do
     Begin
      A[n mod 10]:=A[n mod 10]+1;
      n:=n div 10;
     End;
    For i:=0 to 9 do
     writeln('Цифра ',i,' встречается ',A[i],' раз(а)');
    readln;
End.


YaDimkoo

Только здесь не While, а Repeat надо применить - на случай, если пользователь задаст число "0".