Question

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

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.