Все 6-буквенные слова, составленные из букв а, е , у , записаны в алфавитном порядке. вот начало списка: 1) , 2) , 3) , 4) , запишите слово, которое стоит на 301-м месте в этом списке

Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: а = 0,  е  = 1, у = 2. тогда получим: 1) 000000, (0)2) 000001, (1)3) 000002, (2)4) 000010, (3) 301) (300) а это получаются числа записанные в троичной системе счисления. на 301 месте будет стоять число равное в десятичной системе 300 переведем число 300 из десятичной системы в троичную, получим: 300 : 3 = 100 - остаток 0 100 : 3 = 33 - остаток 1 33 : 3 = 11 - остаток 0 11 : 3 = 3 - остаток 2 3 : 3 = 1 - остаток 0 1 : 3 = 0 - остаток 1 т.е. получаем число 102010 в троичной системе счисления. подставив обратно наши буквы получим ответ: еауауа.

Среднее абсолютное отклонение mad = сумма (по i от 1 до n) |x(i) - ~x| / n программа sredx = 0 for i = 1 to n     sredx = sredx + x(i) next i sredx = sredx / n ' посчитали среднее арифметическое ~x mad = 0 for i = 1 to n     mad = mad + abs(x(i) - sredx) next i mad = mad / n ' посчитали среднее абсолютное отклонение среднее квадратическое отклонение mqd = sqrt(сумма (по i от 1 до n) (x(i) - ~x)^2 / n) программа mqd = 0 for i = 1 to n     mqd = mqd + (x(i) - sredx)^2 next i mqd = (mqd / n)^(1/2) ' посчитали среднее квадратическое отклонение otnos = mqd / mad ' посчитали отношение квадратического к абсолютному среднее арифметическое из средних абсолютных отклонений поддиапазонов посчитай mad в каждом поддиапазоне отдельно, а потом среднее арифметическое, как в цикле sredx.

program raf105;

var

  a,i,n,c: integer;

  x,x2: boolean;

begin

  write('введите количество чисел: ');

  readln(n);

  writeln('вводите ',n,' чисел по очереди');

  readln(a);

  if a > = 0

    then x2: = true

    else x2: = false;

  for i: =2 to n do

  begin

    readln(a);

    if a > = 0

      then x: = true

      else x: = false;

    if x < > x2

      then c: = c+1;

    x2: = x;

  end;

  writeln('количество изменений знака: ',c);

end.

pascalabc 3.4.2