написать программу на Условие задачи:

Создайте класс MyString в котором реализуйте решение задачи по варианту. Структура класса должна включать конструктор класса, метод primer (), в котором решается задача, главный метод с созданием объекта класса MyString и вызовом метода primer (). Метод должен содержать параметры, а его вызов – значения этих параметров. Оформить вывод исходных данных и результатов на консоль с комментариями.

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

Само задание: Дана строка. Удалить все пробелы после знаков препинания. Может встречаться несколько пробелов подряд.

1. 46 бит

2. 256 символов

Объяснение:

I = K * i

I - информационный объём текстового сообщения

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

N = 2^i

N - мощность алфавита (количество символов в алфавите)  

i - информационный вес одного символа (число бит, используемых для записи одного символа)

1.

Дано:

N = 512 символов

K = 37 символов

Найти:

I

512 = 2^i

512 = 2⁹

i = 9 бит

I = 37 * 9 = 46 бит = 5,75 байт

2.

Дано:

I = 2 Кбайт = 16 384 бит

K = 2 048 символов

Найти:

N

I = K * i

i  = I / K

i  = 16 384 / 2 048 = 8 бит

N = 2⁸ = 256 символов

1 байт = 8 бит

1 Кбайт = 1 024 байт

код программы:

program Boat;

var A: integer;

var B: integer;

var C: integer;

var D: integer;

var E: integer;

var F: integer;

var diff_1D: integer;

var diff_2D: integer;

var diff_3D: integer;

var max: integer;

var max_ident: integer;

begin

   writeln();

   writeln('1 день. Со скольки до скольки часов? (через пробел):');

   readln(A, B);

   diff_1D := B - A;

   writeln('2 день. Со скольки до скольки часов? (через пробел):');

   readln(C, D);

   diff_2D := D - C;

   writeln('3 день. Со скольки до скольки часов? (через пробел):');

   readln(E, F);

   diff_3D := F - E;

   if diff_1D > diff_2D then begin

   max := diff_1D;

   max_ident := 1

   end

   else begin

   max := diff_2D;

   max_ident := 2

   end;

   if max < diff_3D then begin

   max := diff_3D;

   max_ident := 3

   end;

   writeln('максимальное время на лодке: ', max, ' часов');

   writeln('максимальное время прибывания было на ', max_ident, ' день');

end.