Расшифровать ипксое_тсмначи_оен_гдела с шифра столбцовой перестановки

При столбцовой перестановке главное - это угадать количество столбцов. Их может быть от двух до половины символов в тексте. В этом случае полезно начать с выделения слова и решения полученной анаграммы.

Например, анаграмма ИПКСОЕ не дает осмысленного слова а русском языке. Укоротим ее на одну букву. ИПКСО - анаграмма слова ПОИСК. Логично предположить, что количество столбцов равно 5.

31542 - порядок столбцов

ИПКСО

Е_ТСМ

НАЧИ_

ОЕН_Г

ДЕЛА

После перестановки:

ПОИСК

МЕСТ

А НИЧ

ЕГО Н

Е ДАЛ

Результат: "ПОИСК МЕСТА НИЧЕГО НЕ ДАЛ"

v - это обозначение союза "и"

^ - это обозначение союза "или"

Первая скобка: «икс и меньше пяти, и меньше трёх». Значения, которые будут удовлетворять данному условию, начинаются с двойки и меньше. Вторая скобка: «икс и меньше двух, и меньше одного». То есть значения, которые будут удовлетворять условию, - это от нуля и меньше (если брать целые числа).

Скобки объединены знаком "или". Значит, нас устроят числа, которые или меньше двойки, или меньше единицы. Единственное число, которое сюда подходит - 1.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,99);
  a.Println;
  var k:=ReadInteger('k=');
  Writeln('Сумма чисел, кратных ',k,': ',
    a.Where(x->x mod k=0).Sum)
end.

Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,20);
  a.Println;
  a.Where((x,i)->x=i+1).Println
end.

Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16