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

Пример:




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
read(n,m);
until
(n>0)and(nwriteln(Начальный ряд:);
k:=0;
for i:=nto m do
 begin 
 inc(k); a[k]:=i; 
write(a[i]:4); 
end;
writeln;
while k>=2 do
 begin 
 i:=1; 
while i<=kdo 
  begin   for j:=ito k-1 do  
 a[j]:=a[j+1];  
 k:=k-1;
  i:=i+1;  
end; 
 i:=2; 
while i<=kdo 
  begin   f
or j:=ito k-1 do  
 a[j]:=a[j+1];  
k:=k-1;  
i:=i+1;  
end;
 end;
write(a[k]);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.