Дан набор натуральных чисел. Все элементы с нечётным номерами заменить на квадратный корень. Результат вывести на экран. на языке python, с списков.​

Компьютеры, телефоны, мониторы. Без этой техники уже трудно представить жизнь. Исследования учёных влияния компьютерных излучений на здоровье привели в волнение офтальмологов, косметологов, дерматологов и ортопедов. Доктора подтверждают снижение остроты зрения, увеличение веса, ускорение старения кожи лица

Исследования учёных

Западными учёными несколько лет проводились наблюдения изменения кожи лица у двух групп женщин. Одна группа работала за компьютером весь день, другая – время от времени. Отмечено, что у первой группы признаки старения и дряхлости лица появились раньше.

Кожа потеряла эластичность, щёки обвисли, лицо потеряло контур, заметных морщин стало больше, некоторые дамы обзавелись вторым подбородком.

Причина неприятностей – в электростатическом поле, которое создаётся вокруг экрана и сушит воздух. Ещё одна причина – микрочастицы, оседающие и загрязняющие лицо. Глаза краснеют, появляется раздражение и воспаление.



Последствия:

· иссушение кожных покровов;

· расширение и забитость пор;

· излишняя жирность кожи;

· глаза окружены морщинистой сеточкой;

· сухие веки;

· расширенные сосуды на щеках;

· появление второго подбородка;

· мимические морщины.

Исследователями предлагаются профилактические меры, предотвращающие влияние вредных излучений

Var
  i,i_beg,i_end,k:longint;
  p:set of longint;
begin
  Writeln('Вводите целые числа большие двух, конец ввода по числу 0');
  i_beg:=1000000; i_end:=0;
  repeat
    Read(k);
    if k<>0 then
    begin
      if i_beg>k then i_beg:=k
      else if i_end<k then i_end:=k;
      Include(p,k)
    end
  until k=0;
  Writeln('Числа, не входящие в последовательность:');
  for i:=i_beg to i_end do
      if not (i in p) then Write(i,' ')
end.

Тестовое решение:
Вводите целые числа большие двух, конец ввода по числу 0
6 12 9 14 10 19 17 11 7 0
Числа, не входящие в последовательность:
8 13 15 16 18