На доске подряд выписаны натуральные числа от 1 до 30. сначала с доски стерли все нечетные числа. из оставшихся чисел стирают все числа, оказавшиеся на четных местах. затем снова стирают все числа, оказавшиеся на нечетных местах, и так далее, пока не останется одно число. какое?

число которое останется в   конце 22

язык программирования любой?

пишу на Python:

s = str(input())

s = sorted(s[:len(s)-1].split(', '))

for word in s:

print(word, ' ', end='')

Pascal:

var s, copy_s, word_s:string;

i, n, count:integer;

a:array of string ;

begin

count:=0;

write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');

readln(s);

copy_s:= s;

while pos(',', copy_s) > 0 do begin

n:= pos(',', copy_s);

delete(copy_s, n, 1);

count:=count+1;

end;

count:= count + 1;

SetLength(a, count);

for i:=1 to count-1 do begin

n:= pos(',', s);

word_s:= copy(s, 1, n-1);

delete(s, 1, n);

a[i]:=word_s;

end;

word_s:= copy(s, 1, length(s)-1);

a[count]:= word_s;

for i:=1 to count-1 do

if a[i] > a[i+1] then begin

word_s:=a[i];

a[i]:=a[i+1];

a[i+1]:=word_s;

end;

for i:=1 to count do

writeln(a[i]);

end.

объяснение:

#количество чисел - единственное число в первой строке

n = int(

#ввод элементов массива - все числа на второй строке

a = [float(x) for x in

#сумма отрицательных чисел

sum_neg = sum(x for x in a if x < 0)

imin, imax = 0, 0

for i in range(len(a)):

    if a[imin] > a[i]:

        imin = i

    if a[imax] < a[i]:

        imax = i

product = 1

for i in range(imin+1, imax):

    product *= a[i]

a.sort()

print('sum = {}, product = {}'.format(sum_neg, product))

print('sorted array: ', *a)