Операции с целыми числами, "переворачивание" числа Опции

[Jaxx]

Укажите все целые чсла, которые увеличатся на 20%, если их цифры записать в обратном порядке.

[xds]

Решение в лоб (в 32-битной среде получается бяка ).

program Rev6_5;

var
  i, j, t: Integer;

begin
  i := 0;
  repeat
    t := 0;
    j := i;
    while j <> 0 do
      begin
        t := t * 10 + j mod 10;
        j := j div 10;
      end;
    if (6 * i = 5 * t) then Writeln(i);
    Inc(i);
  until i = 0;
end.

[Lapp]

Решение в лоб (в 32-битной среде получается бяка ).

Бяка получается везде . Дело в том, что при i=10004 произойдет переполнение, так как 40001>MaxInt.
Надо просто рабочие переменные сделать типом LongInt - и все будет в порядке . И цикл при этом желательно вести до MaxInt, так как не совсем понятно, что делать с отрицательными числами..

[xds]

Насчёт переполнения при умножении ты прав (не доглядел, хотя, результат вычислений не меняется ) По поводу отрицательных чисел, вопрос спорный - если применять правило увеличения на 20% как для положительных (6 * n / 5), то всё работает

program Rev6_5;

var
  i, j: Integer;
  t: LongInt;

begin
  i := 0;
  repeat
    t := 0;
    j := i;
    while j <> 0 do
      begin
        t := t * 10 + j mod 10;
        j := j div 10;
      end;
    if 6 * LongInt(i) = 5 * t then Writeln(i);
    Inc(i);
  until i = 0;
  Writeln;
end.

Сообщение отредактировано: xds - 4.07.2007 11:57

[Jaxx]

А почему первым числом выводится 0 ?

[xds]

В коде выше t должно быть LongInt (исправил).

А почему первым числом выводится 0 ?

0 удовлетворяет условию задачи (0 + 0 * 0.2 = 0).

Сообщение отредактировано: xds - 4.07.2007 12:01