3. Задан ряд последовательных натуральных чисел от n до m (n<m<1000000), из которого...

Question

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

Пример:




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
read(n,m);
until
(n>0)and(nwriteln('Начальный ряд:');
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</span> 
  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</span> 
  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.