Question

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

Пример:




nchet.in


post.out




5
10


8

Answer 1

 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.