2048 символов, 2 байта на символ, то есть 16 * 2048 * N — количество бит на текстовый документ.
1536 * 1024 * 24 * N — количество бит на отсканированный документ.
разница 70 Мб, то есть 70 * 1024 * 1024 * 8 бит
решаем уравнение: (1536 * 1024 * 24 * N) - (16 * 2048 * N) = 70 * 1024 * 1024 * 8. N = 17920 / 1151 ≈ 15.5. так как это больше 15, то ответ — 16.
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
var n,z,n1,e:integer;
begin
e:=0;
readln(n);
n1:=n div 2;
for z:=1 to n1 do begin
if (n mod z = 0) then e:=e+z;
end;
if (e=n)
then writeln('соверншенное')
else writeln('0');
end.