3. Задан ряд последовательных натуральных чисел от n до m (n

местах, затем из оставшегося ряда удаляют все числа стоящие на нечетных местах.

Эти действия повторяют до тех пор пока не останется одно число, Определить это

число.

Пример:

nchet. in

post. out

5

10

8

Question

Информатика

Вира

26 сентября, 21:22

3. Задан ряд последовательных натуральных чисел от n до m (n

местах, затем из оставшегося ряда удаляют все числа стоящие на нечетных местах.

Эти действия повторяют до тех пор пока не останется одно число, Определить это

число.

Пример:

nchet. in

post. out

5

10

8

+1

Ответы (1)

Знаете ответ?

Маюня · 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 (n
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.