Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
K = 11
N = 10 + 12 *2 = 34
Kпаролей = 60
Ic2 - ?
N = 2* I ( в степени I )
34 = 2*I
I = 6 бит
Ic 1 = K * I
Ic1 = 11*6 =66бит = 9 байт (приблизительно, т.к. нам нужно целое количество байтов)
=> Ic2 = Ic1 * K паролей
Ic2 = 9 * 60 = 540 байт
Ответ: 540