Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
<span>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим. - 67 символа
Размер предложения 67символа*16 бит =1072бит(4)</span>
180 бит : 45 симв. = 4 (бит) наесет 1 символ
N=2^i
N=2^4
N=16 (симв) мощность алфавита