<span>Найдём информационный объём данной статьи: I = 32 * 32 * 25 * 8 = 2^5 * 2^5 * 25 * 2^3 = 2^(5 + 5 + 3) * 25 = 2^13 * 25 бит. Переведём полученное значение в более крупные единицы измерения информации — килобайты. 2^13 * 25 бит = (2^13 * 25) / (8 * 1024) кбайт = (2^13 * 25) / (2^3 * 2^10) кбайт = (2^13 * 25) / 2^13 кбайт = 25 кбайт. Ответ: I = 25 кбайт.</span>
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>