Сумма цифр чисел, принадлежащих промежутку [1..100000]

[decantnik]

Номер анкеты туриста, посещающего островное государство Айланд, представляет собой семизначное число от 0000001 до 1000000. Вы можете стать обладателем бесплатной въездной визы в этот райский уголок, если решите несложную головоломку. Условие задачи таково: если сложить все цифры в номере анкеты, то получится новое число. Далее нужно сложить все цифры во вновь полученном числе. Процесс следует продолжать до тех пор, пока в результате не получится однозначное число.
Каких чисел получится больше всего, если указанную процедуру проделать над всеми возможными в Айланде номерами анкет?

[RUSt88]

получится больше всех единиц, это легко доказывается
а насчет условия задачи я не понял, вот посчитал ты цифры и что дальше?

[decantnik]

395 -> 3+9+5 -> 17 -> 1+7 -> 8

Потом сравнить полученные цифры, и вывести соответствующие цифрам числа.. Вроде так.

[Serge_Bliznykov]

var
  i, k : longint;
  a : array[1..9] of longint;

function SumDigit(Num:longint):integer;
var
  MySum : integer;
  OneDigit : longint;
begin
  repeat
    MySum := 0;
    while Num>0 do begin
        OneDigit := Num mod 10;
        Num := Num div 10;
        MySum := MySum + OneDigit;
    end;
    if MySum>9 then Num := MySum;
 until MySum < 10;
 SumDigit := MySum;
end;

begin
  for i:=1 to 9 do a[i] := 0;

  for i:=1 to 1000000 do  begin
    k := sumDigit(i);
    inc(a[k]);
  end;
  WriteLn('----------------');
  for i:=1 to 9 do Writeln(i:3,' count = ',a[i]);
end.

[decantnik]

Спасибо.. Сейчас постараюсь разобраться