SOS!!! Программа на Паскале

[_°PROTOS°_]

Доброго времени суток, нужна ваша помощь в решении задачки....
Вот собственно само условие:

Даны четырёхзначные числа n и k. Из этого
промежутка выбрать те числа, запись которых
содержит три одинаковых цифры.
Например числа, 5655, 4414, 0005 содержит три
одинаковых цифры.

Заранее благодарен

[puporev]

0005 это не 4х-значное число, ибо ведущие ноли не являются значащими цифрами.

[Serge_Bliznykov]

вот.

function HasThreeSimuliarDigits(Num : integer):boolean;
var
  cntA:array[0..9] of integer;
  i, OneDigit : integer;
begin
  for i:=0 to 9 do cntA[i]:=0;
  while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      Inc(cntA[OneDigit]);
  end;
  HasThreeSimuliarDigits := false;
  for i:=0 to 9 do 
    if cntA[i] = 3 then begin
      HasThreeSimuliarDigits := true;
      Exit;
    end;        
end;  

var
  n,k,i : integer;
begin
  WriteLn('Введите диапазон (числа n k)');
  ReadLn(n,k);
  for i:=n to k do
     if HasThreeSimuliarDigits(i) then WriteLn(i:4)
end.

p.s. проверки на то, что число 4-х значное в данном примере нет! Нужна проверка - добавляйте сами.
Для простоты подскажу,
4-х значные числа это числа >=1000 и <=9999

[DM_bite]

program Numbers;
var n,m,a,b,c,d,i: integer;
begin
ReadLn(n,m);
for i:= n to m do
begin
 a:= i div 1000;
 b:= i div 100 mod 10;
 c:= i mod 100 div 10;
 d:= i mod 100 mod 10;
 if (a=b) and (a=c) and (b=c)
 or (a=b) and (a=d) and (b=d)
 or (a=c) and (c=d) and (a=d)
 or (b=c) and (c=d) and (b=d) then WriteLn(i);
 end;
 ReadLn;
 end.

Аналогично, проверки на разряд числа нет.

[Serge_Bliznykov]

DM_bite, ну, а мне мой вариант больше нравится. своей универсальностью (он же и для многозначных чисел уже правильно работает)

Кстати, в реализациях моей и Вашей есть одно принципиальное отличие (ну кроме способа решения, конечно).
у меня считаются числа СТРОГО имеющие три повтора. т.е. числа, где цифра повторяется 4-ре раза (например, 5555) не является решением задачи.
В Вашем случае, такое число так же является ответом.

Как правильно = не знаю. Если правильно учитывать такие числа, тогда в моём код надо равенство cntA[i] = 3 заменить на cntA[i] >= 3

[puporev]

Написано

содержит три одинаковых цифры.

а не "не менее 3х цифр", поэтому, придерживаясь правил логики, правильно только ровно 3 цифры.

[DM_bite]

DM_bite, ну, а мне мой вариант больше нравится. своей универсальностью (он же и для многозначных чисел уже правильно работает)

Кстати, в реализациях моей и Вашей есть одно принципиальное отличие (ну кроме способа решения, конечно).
у меня считаются числа СТРОГО имеющие три повтора. т.е. числа, где цифра повторяется 4-ре раза (например, 5555) не является решением задачи.
В Вашем случае, такое число так же является ответом.

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

[_°PROTOS°_]

Всем огромное спасибо....