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