Программа написана на языке Pascal
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№1</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
if s[1] = a then Print('Да')
else Print('Нет')
end.
<h2>№2</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
s.Where(c->c=a).Count.Println
end.
Ответ:
18байт
Объяснение:
личный код имеет 14 символов кожен с которых может иметь 36 значений(26 значений букв и 10 цифр).
36 значений можно закодировать в 6 бит (2^6=64 - входит и значение 36)
Личный код имеет 14 символов значит
6 бит * 14 = 84бит=8.5байт
код подразделений имеет 8 значений 5 первых которые буквы от А до F (6 значений)
6 значений это 3 бита(2^3=8 - входит 6)
Код имеет 5 первых букв
5*3=15бит=1.9байт
И трьохзначное число по три значения кожное з которых может быть максимум 9
9 значений это 4 бита
таких значений есть 3
3*4=12бит=1.5байт
Сумируем 1.5+1.9+8.5=11.9≈12байт
30-12=18байт