На вход алгоритма подается натуральное число n алгоритм строит по нему новое число r следующим образом.
1) строится двоичная запись числа
2) каждый разряд в записи заменяется двумя по следующему правилу если в разряде стоит 0, то вместо него пишется 01, если в разряде стоит 1 ,то 1 заменяется на 10
например двоичной записи числа 1001 числа 9 будет преобразован в 10010110 ​

Для того чтобы работать с текстами на персональном компьютере или ноутбуке обычно используют специальные программные средства, которые принято называть текстовыми редакторами. Стоит отметить, что на сегодняшний день существует довольно большое разнообразие подобных программ, которые различаются своими возможностями и функциями, но наиболее популярным (по числу использования пользователями) остается MS Word 2010.

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

Самым большим по своим возможностями до сих пор считается MS Word — текстовый редактор от компании Microsoft. В нем так же, как и во многих его аналогах можно:

форматировать символы, абзацы;

оформлять страницы;

"строить" указатели и оглавления;

включать в тесты графические объекты: фотографии, диаграммы, рисунки;

создавать таблицы, проверять правописание и т. д.

В современном мире существует уже много версий MS Word, наиболее популярными среди них считаются версии 2003, 2007, 2010 и 2013 года выпуска. Современный текстовый процессор Microsoft Word предназначен для создания, печати и модификации текстовых документов. Он предусматривает выполнение многих операций, как над текстовой, так и над графической или табличной информацией. Благодаря MS Word стало возможно быстро, а также с высоким качеством подготовить любой документ, причем от сложного до дает возможность осуществлять все традиционные операции над текстом (без исключений), которые предусмотрены в компьютерной современной технологии. С его можно:

модифицировать набор неформатированной цифровой и алфавитной информации;

форматировать символы, применяя множество шрифтов разных размеров и начертаний;

форматировать страницы (сюда также входят сноски, колонтитулы);

форматировать документ в целом (составлять оглавление, причем автоматическое, а также разные указатели);

подбирать синонимы, проверять правописание, использовать автоматический перенос слов.

В этой программе реализованы возможности новых технологий связывания, внедрения объектов, благодаря которым можно в документ включать таблицы, текстовые фрагменты и иллюстрации.

Это одна из первых общедоступных программ, с которой можно выполнять операции верстки, которые порой необходимы издательским профессиональным системам, а также с ее можно подготавливать полноценные оригинал-макеты для их последующего тиражирования в типографии.

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

Многие привыкли к другим же нравится оригинальный интерфейс версий 2007 или 2010 года выпуска. В основном же это дело привычки. Самое главное, что в современном мире это самый удобный, интуитивно-понятный и полезный инструмент для работы с текстовыми файлами

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20