Форум программистов [Powered by Invision Power Board]

Код

var i, first, second, count: integer;
begin
  for i := 1 to 99 do begin
    first := i; { Первый получил число... }
    count := 0;
    repeat

      { Второй получил свое переворотом цифр и добавлением суммы цифр
         (по модулю 100 - только 2 последние цифры) }
      second := (10 * (first mod 10) + (first div 10) +
                (first div 10) + (first mod 10)) mod 100;

      { Если не получен 0, то первый точно так же пелучает свое число }
      if second <> 0 then begin
        first := (10 * (second mod 10) + (second div 10) +
                  (second div 10) + (second mod 10)) mod 100;

        { Эо - для контроля зацикленности }
        inc(count);
      end;

    { Повторять до тех пор, пока не зациклились (1000 проходов) или пока второй не получил 0 }
    until (second = 0) or (count > 1000);

    { Если ТОЛЬКО второй игрок получил 0 из числа, полученного от первого,
       а не случилось так, что первый УЖЕ передал 0 второму, и естественно, 0 и остался,
       насколько я понял, тебя этот вариант не интересует }
    if (first <> 0) and (second = 0) then begin
      { Напечатать само число, и проделать весь цикл заново, чтобы проследить решение }
      writeln; writeln('i = ', i);

      first := i;
      repeat

        write(' A: ', first div 10, first mod 10);
        second := (10 * (first mod 10) + (first div 10) +
                  (first div 10) + (first mod 10)) mod 100;
        write(' B: ', second div 10, second mod 10);
        first := (10 * (second mod 10) + (second div 10) +
                  (second div 10) + (second mod 10)) mod 100;

        { Здесь, как понятно, зацикленность не произошла, поэтому Count не увеличиваем }
      until (second = 0);
      writeln;
    end
      { иначе, если результат обработки нас не устроил, просто печатаем точку,
         чтобы показать, что программа считает, а не зависла }
    else write('.');

  end;
end.