Задача про 3 числа

[Wladimir33]

Ребята мне на зачёте дали задачу.
Дано натуральное число n. Проверить, есть ли в этом числе 3 совпадающего числа. (n<=9999).
Например 9989-есть 3 совпадающего числа.

Разясните пж как можно её сделать или помогите её написать.

[Leo08]

Можешь преобразовать число в string функцией inttostr, а затем по одному символу проверяешь. Также можешь создать массив символов и сравнивать их. При положительном результате сравнения счётчик (например k) увеличивается на 1. Ну и в конце всех действий проверяешь, если k>=3 тогда есть повторяющиеся символы!
Пример:

function getcount(num:integer):boolean;
var
k:integer;
begin
If Length(inttostr(num))<3 then
Result:=False
else
begin
If length(inttostr(num))=3 then
begin
If (inttostr(num)[1]=inttostr(num)[2]) and (inttostr(num)[2]=inttostr(num)[3]) then
Result:=True;
end
else
begin
k:=0;
If (inttostr(num)[1]=inttostr(num)[2]) or (inttostr(num)[1]=inttostr(num)[3]) or (inttostr(num)[1]=inttostr(num)[4])  then
inc(k);
If (inttostr(num)[2]=inttostr(num)[1]) or (inttostr(num)[2]=inttostr(num)[3]) or (inttostr(num)[2]=inttostr(num)[4])  then
inc(k);
If (inttostr(num)[3]=inttostr(num)[1]) or (inttostr(num)[3]=inttostr(num)[2]) or (inttostr(num)[3]=inttostr(num)[4])  then
inc(k);
If (inttostr(num)[4]=inttostr(num)[1]) or (inttostr(num)[4]=inttostr(num)[2]) or (inttostr(num)[4]=inttostr(num)[3])  then
inc(k);
If k>=3 then
Result:=True
else
Result:=False;
end;
end;
end;

[Alex11223]

Как-то так можно искать цифры в числе.

while (n>0) do
begin
   x:=n mod 10; 
   n:=n div 10;
end;

Ну только вместо х в данном случае массив [1..4] , например.

[ViktorR]

Или как то так:

var n, i, m : integer;
    mn : array[0..9] of byte;
    s1 : string;
begin
   readln(s1);                       { читаем строку символов}
   m := Length(s1);               {число цифр введено}
   for i:=1 to m do begin         { каждый символ}
      n := Ord(s1[i]) - Ord('0'); {преобразуем в число}
      if ( n >= 0) and (n <= 9) then {это число}
         inc(mn[n])     {подсчитываем сколько раз встретилась цифра}
      else begin                            {это не число}
         writeln('Это не число целого типа!');
         halt;
      end;
   end;
   for i := 0 to 9 do {просмотр встретившихся цифр}
      if mn[i] = 3 then begin
         writeln('В числе ', s1, 'три раза встречается цифра - ', i);
         break; {только для первой тройки одинаковых цифр}
      end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.