сть ли в записи числа три одинаковые цифры, целочисленная арифметика Опции

[djvu]

Помогите сделать задание на целочисленную арифметику (строками пользоваться НЕльзя): Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры(n<=9999). Я вообще не придставляю как делать

[klem4]

Что именно вызывет затруднения ? Не знаешь как разбить число на цифы ?

очень похожая задача: Различие цифр в числе

[djvu]

1)не ясен сам алгоритм разбиения числа на цифры
2)Как узнать что повторения цифры в числе 3??

[volvo]

djvu, ты по ссылке сходи, потом посмотрим, какие у тебя вопросы останутся...

[djvu]

По ссылке сходил. Но сделал не много по своему. Я забил каждую цифру в отдельный элимент массива. Но щас не знаю как в массиве найти 3 ОДИНАКОВЫХ элимента это мой последний вопрос.

var
     n, i: integer;
     mas: array[0 .. 4] of integer;
     begin
        readln(n);
       while n>0 do begin
for i:=1 to 4 do
begin
mas[i]:=n mod 10;
n:=n div 10;
writeln(mas[i]);
{Здесь надо найти 3 одинаковых элимента массива???}

 end;
  end;
readln;
end.

[klem4]

var
  counts: Array [0..9] of Integer = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
  n: Integer;

begin
  readln(n);

  while (n > 0) do begin
    inc(counts[n mod 10]);
    n := n div 10;
  end;

  for n := 0 to 9 do
   if counts[n] = 3 then writeln(n);
end.