Удаление элементов одномерного массива, удаление чётных и нечётных элементов Опции

[DruiD]

Дан ряд последовательных натуральных чисел от n до m из которого удаляют вначале все числа, стоящие на нечётных местах. Потом из оставшегося ряда удаляют все числа, стоящие на чётных местах. Действия повторяются до тех пор, пока не останется число. Найти это число.

[xds]

Версия без массива:

program Excl1;

var
  n, m, r: Integer;
  s, t: LongInt;

begin
  Write('n>');
  Readln(n);
  Write('m>');
  Readln(m);

  t := n;
  s := 1;
  while t <= m do
    begin
      r := t;
      Inc(t, s * s);
      s := s shl 1;
    end;

  Writeln( r );
end.

Сообщение отредактировано: xds - 12.02.2007 23:28