Задан ряд последовательных натуральных чисел от n до m n

27 Январь 2012



3. Задан ряд последовательных натуральных чисел от n до m (n
<m<1000000), из которого удаляют сначала все числа, стоящие на нечетных
местах, затем из оставшегося ряда удаляют все числа стоящие на нечетных местах.
Эти действия повторяют до тех пор пока не останется одно число, Определить это
число.



Пример:

nchet.in



post.out

5
10

8




  •  uses crt;

    var n,m,i,j,k:integer;
     
     
    a:array[1..1000] of integer;

    begin

    repeat
    writeln(‘Введите 2 натуральнвх числа n<m<1000:’);

    read(n,m);

    until
    (n>0)and(n<m)and(m<1000);

    writeln(‘Начальный ряд:’);

    k:=0;

    for i:=n
    to m do


     begin
     

     inc(k);

     
    a[k]:=i;

     

    write(a[i]:4);

     
    end;


    writeln;

    while k>=2 do

     begin
     

     i:=1;

     

    while i<=k
    do

     

      begin

     
      for j:=i
    to k-1 do

     
     
     a[j]:=a[j+1];

     
     
     k:=k-1;
      i:=i+1;
     
     
    end;

     

     i:=2;

     

    while i<=k
    do

     

      begin

     
      f
    or j:=i
    to k-1 do

     
     
     a[j]:=a[j+1];

     
     
    k:=k-1;

     
     
    i:=i+1;

     
     
    end;


     end;

    write(a[k]);

    end.










Информатика

Комментарии закрыты.