ИНФОРМАТИКА
CLS
p=1
FOR i=2 TO 7 STEP 2
p=p*3
PRINT p
NEXT i

Запишите значение переменной P, полученное в результате работы программы.

Сколько чисел будет распечатано на экране?

​

Напишите программу, которая выполняет неполную сортировку массива: ставит в начало

массива три самых меньших по величине элемента в порядке возрастания (неубывания).

Положение остальных элементов не важно.

2) Напишите программу, которая сравнивает число перестановок элементов при использовании сортировки «пузырьком», методом выбора и алгоритма быстрой сортировки. Проверьте ее на разных массивах, содержащих 1000 случайных элементов, вычислите среднее число перестановок для каждого метода.

3)Попробуйте построить массив из 10 элементов, на котором алгоритм быстрой сортировки показывает худшую эффективность (наибольшее число перестановок). Сравните это количество перестановок с эффективностью метода пузырька (для того же массива)

В 1 надо только одним сортировки и не используя быструю сортировку.

В 2 и 3 надо, чтобы были использованы несколько сортировки, включая быструю сортировку.

Объяснение:

ну вроде так

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