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

Введите символ для исключения 3
5412412487652421

//Вариант без местного оккультизма
//Pascal ABC.NET v3.0 сборка 1111
var
   s:string;
  c:char;
  i:integer;
begin
writeln('Введите число:');
readln(s);
writeln('Введите исключение:');
readln(c);
for i:=length(s) downto 1 do
if s[i]<>c then write(s[i]);
end.

Пример выполнения:
Введите число:
1234
Введите исключение:
3
421

а) Выложим шары в ряд. Для определения расклада наших шаров по шести ящикам разделим ряд пятью перегородками на шесть групп: первая группа для первого ящика, вторая – для второго и так далее. Таким образом, число вариантов раскладки шаров по ящикам равно числу расположения пяти перегородок. Перегородки могут стоять на любом из 19 мест (между 20 шарами – 19 промежутков). Поэтому число их возможных расположений равно  .

 б) Рассмотрим ряд из 25 предметов: 20 шаров и 5 перегородок, расположенных в произвольном порядке. Каждый такой ряд однозначно соответствует некоторому раскладки шаров по ящикам: в первый ящик попадают шары, расположенные левее первой перегородки, во второй – расположенные между первой и второй перегородками и т. д. (между какими-то перегородками шаров может и не быть). Поэтому число раскладки шаров по ящикам равно числу различных рядов из 20 шаров и 5 перегородок, то есть равно  .

Объяснение:

Объяснение: ничего не понятно про "наибольшие пары" и про сведение "наименьших" в квадрат, потому в 3 файл я отсеиваю наибольший элемент из пары, а в качестве сведения - я сортирую выводимые пары по 8 пар в строке, с пробелом меж ними (крч как в хекс-редакторах)

# include <iostream>

# include <fstream>

// количество элементов

const size_t _count = 20;

int main() {

// открываем и читаем 1 файл

std::ifstream file1("file1.bin", std::ios_base::binary);

char* buf1 = new char[_count];

file1.read(buf1, _count);

// открываем и читаем 2 файл

std::ifstream file2("file2.bin", std::ios_base::binary);

char* buf2 = new char[_count];

file2.read(buf2, _count);

// открываем 3 файл

std::ofstream file3("file3.bin", std::ios_base::binary);

char* buf3 = new char[_count];

// записываем наибольшее из пары в буффер для 3 файла

for (int i = 0; i < _count; i++) {

 // перенос строки

 if (i % 8 == 0) std::cout << " ";

 if (i % 16 == 0) std::cout << std::endl;

 if (buf1[i] > buf2[i]) {

  buf3[i] = buf1[i];

  std::cout << std::hex << std::uppercase << short(buf2[i]) << " ";

 }

 else {

  buf3[i] = buf2[i];

  std::cout << std::hex << std::uppercase << short(buf1[i]) << " ";

 }

}

file3.write(buf3, _count);

};