Стал ещё сильнее уважать свой ноут:)
uses
System.Numerics;
var
k, m: <em>BigInteger</em>;
n, j: <em>word</em>;
begin
readln(n);
for j := 1 to n do
k := k * 10 + 5;
k := k * k;
writeln(n, ' ', k);
repeat
m := m + (k mod 10);
k := k div 10;
until (BigInteger.Parse(k.toString()).isZero); <em>//нет, isZero просто так не принимает IDE
</em>
k := 0;
writeln('Sum: ', m);
<span>end.</span>
Один символ в двоичной системе равен 1 биту, здесь 7 символов, следовательно 7 бит.
<span>формула включений исключений
25-4 = 18 + 20 - х
х = 17</span>
(72-68)+ (27-19)= 4+ 8= 12