З якою метою форматують документ?​

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var k:=0;
  var n:=ReadInteger();
  var nmax:=0;
  while n<>0 do begin
    Inc(k);
    if n mod 10 = 0 then
      if n>nmax then nmax:=n;
    n:=ReadInteger()  
    end;
  var cntrl:=ReadInteger();
  Writeln('Получено ',k,' чисел');
  Writeln('Полученное контрольное значение: ',cntrl);
  Writeln('Вычисленное контрольное значение: ',nmax);
  if cntrl=nmax then Writeln('Контроль пройден')
  else Writeln('Контроль не пройден')
end.

Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден

11

Объяснение:

1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2* < 26 <29). 14 символа займут 14х5 - 70 бит %3D 70 / 8%3D 8.75 байта, округляем до целого вверх, получаем 9 байт.

2. Номер года обозначается одним из 100 чисел. 2° < 100 > 2", поэтому для кодирования требуется 7 бит.

3. Номер для обозначается одним из 366 чисел. 2° < 366> 2°, поэтому для кодирования требуется 9 бит.

4. Всего для кодирования срока действия потребуется 7+9 %3 16 бит %3D16/2%3D2 байта 5. Вся информация на пропуске займет 9+2 3D 16 байт