Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом: Если длина цепочки - нечётное число, Шифровальщик удаляет последний символ цепочки, а если чётная, то добавляет в начало цепочки букву Б. После этого каждая буква заменяется следующей за ней буквой в русском алфавите (А — на Б, Б — на В и т.д., а Я — на А). Этот алгоритм применили к слову ИЮНЬ. Какое слово получилось?

Объяснение:

Первая программа:

a = list(map(int,input().split()))

p = 0

for i in range (0,len(a)):

   if i % 3 == 0:

       p+= 1

print(p)

(Вводим список, прогоняем его по циклу for по всем элементам. Нумерация элементов идет с 0, если номер цикла при делении на 3 имеет остаток 0 (нацело делится), то в переменную p прибавляем 1. После цикла принтуем переменную p, количество элементов с индексом, кратным 3)

Вторая программа:

a,b = map(int,input().split())

summ = 0

p = 0

for i in range(a,b+1):

   if i % 3 == 0:

       summ += i

       p += 1

print(summ/p)

(Записываем 2 числа в одну строку, задаем переменную summ(сумма элементов, кратных 3) значение 0 и переменной p(количество таких чисел) значение 0. Прогоняем все числа от a до b(с шагом 1) по циклу for. Если число в диапазоне делится на 3 нацело, то к переменной summ прибавляем число, а к переменной p - единицу. После цикла выводим ср.арифметическое(сумму всех чисел делим на их количество)

Если что-то непонятно - спрашивайте.

Программа со статическим массивом:

Var
  M: array[1..32767] of real;
  Min: real;
  N, i: integer;
Begin
  Write('N = ');ReadLn(N);
  if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
  else
  begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
  end
End.