Uses crt;
const N=13;
var
Z: array [1..N] of real;
i,W,a: integer;
begin
clrscr;
a:=0;
for W:=1 to N do
Z[W]:=W*sin(W);
for W:=2 to N-1 do
begin
if (Z[W]<Z[W-1]) and (Z[W]<Z[W+1]) then
a:=a+1;
end;
writeln (a);
<span>end.</span>
I = K*i, где I - информационный объём, K - количество символов, i - вес одного символа
i вычисляется по формуле Шеннона (N=2^i, где N - мощность алфавита), то есть для решения надо знать количество символов в файле и мощность алфавита
удачи :D
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>