Сколько одинаковых цифр в числе

[NiCola999]

я бы предложил немного другой алгоритм
ваш имеет сложность O(n^2) =))

[Базиля]

NiCola999
Слушаю ваше предложение=)

[NiCola999]

завести массив из 10 элементов, изначально заполнить нулями. Он будет служить счетчиком кол-ва повторений каждой цифры

b = [0,0,0,0,0,0,0,0,0,0]

потом просто берем исходное число и в зависимости от цифры , увеличиваем элемент b на 1
напишу пример на Си
допустим есть число a

a = 12345665;
for(i=a; i>0; i/=10)
      b[ i%10 ] ++;

проходимся по этому массиву и считаем сколько элементов имеет повторений больше 1. Вернее надо
просто просуммировать элементы которые больше 1

[Alex_FF]

var
  X: Longint;
  A: Array[0..9] of Byte;
  C, I: Byte;
begin
  ReadLn(X);
  FillChar(A, SizeOf(A), 0);
  while X <> 0 do
  begin
    Inc(A[X mod 10]);
    X := X div 10;
  end;
  WriteLn('Повторяются: ');
  C := 0;
  for I := 0 to 9 do
    if A[I] > 1 then
    begin
      WriteLn(I, ' - ', A[I], ' раз');
      Inc(C);
    end;
  WriteLn; WriteLn;
  WriteLn('Всего повторяющихся цифр: ', C);
  ReadLn;
end.

[NiCola999]

угу именно так =), только ему вроде надо посчитать кол-во одинаковых цифр
т.е для числа
1333555677 = 8

а ваша программа я предполагаю выдаст 3

т.е надо примерно так

var
  X: Longint;
  A: Array[0..9] of Byte;
  C, I: Byte;
begin
  ReadLn(X);
  FillChar(A, SizeOf(A), 0);
  while X <> 0 do
  begin
    Inc(A[X mod 10]);
    X := X div 10;
  end;
  WriteLn('Повторяются: ');
  C := 0;
  for I := 0 to 9 do
    if A[i] > 1 then
    begin
      WriteLn(I, ' - ', A[i], ' раз');
      С = С+A[i];
    end;
  WriteLn; WriteLn;
  WriteLn('Всего повторяющихся цифр: ', C);
  ReadLn;
end.

[Banderas123]

Спасибо, я пока что только начинаю изучать паскаль самостоятельно, в коледже учим бейсик. Так что, вопросов будет много.... xD

[Chudo4258]

readln(n);
for i:=0 to 9 do
 A[i]:=0;

while n<>0 do
 begin
 k:=n mod 10;
 n:=n div 10;
 inc(A[k]);
 end;
for i:=0 to 9 do
 if A[i]<>0 then writeln('Цифра ',i,' встречается в записи числа ', A[i],' раз')