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

Пример:




nchet.in


post.out




5
10


8

1

Ответы и объяснения

2013-11-18T16:36:26+04:00


 
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.