Сравнительная таблица «Системы счисления»

Объяснение:

выписываешь все уникальные(?) символы, которые есть в предложении.

Аисх = {С, Т, О, И, П, Н, А, К, Е, Л, пробел, запятая};

считаешь их общее количество.

Mисх = 12;

смотрим формулу.

М =  (это та же формула N = , просто буковки другие, да)

подставляем число 12 под М, но т.к. тут такая непонятная штука со степенью, то подставляем наименьшее целое i, удовлетворяющее следующему неравенству: M <

теперь подставим известное значение мощности исходного алфавита:

12 < , следовательно i = 4(бит). тройка быть не может, т.к. = 8, а 8 < 12.

теперь каждому символу самостоятельно присваиваешь уникальную кодовую комбинацию. удобнее всего это сделать в виде таблицы. например:

 С        Т        О

0010   1111    0100           и т.д.

теперь пишешь в строчечку все эти комбинации.

001011110100........ не забудь про пробелы и запятые.

чтобы рассчитать объем полученного текстового файла, тебе нужно общее количество символов предложения (34) умножить на 4 бита. это и будем объемом полученного файла.

*если что, то в строчку нужно писать комбинации символов всего предложения, а не только этих 12.

надеюсь, все правильно и понятно.

1. "Школьное" решение

// PascalABC.Net 3.0, сборка 1066
var
  s,s1:string;
  i:integer;
  a:char;
begin
  Write('Введите натуральное число любой длины :'); Readln(s);
  Write('Введите цифру, которую надо удалить: '); Readln(a);
  s1:='';
  for i:=1 to Length(s) do
    if s[i]<>a then s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовый прогон:
Введите натуральное число любой длины :3141592653589793
Введите цифру, которую надо удалить: 5
Результат: 3141926389793

2. Современное решение (так в школе почему-то не учат)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите натуральное число любой длины :');
  var a:=ReadChar('Введите цифру, которую надо удалить: ');
  Write('Результат: ',s.Replace(a,''));
end.