64-х символьный алфавит кодирует один символ 6-ю битами
всего в сообщении 32 символа * 6 бит/символ = 192 бита
Var
v:array[1..10]of integer;
f:real;
i:byte;
a,b,c,d,min,k:integer;
begin
for i:=1 to 10 do
v[i]:=random(20)-10;
readln(d);
min:=v[1];
b:=0;
for i:=1 to 10 do begin
if v[i]<0 then begin
b:=b+1;
end;
if v[i]>min then
a:=min;
end;
k:=0;
for i:=1 to 10 do begin
if v[i]<d then
k:=k+1;
end;
c:=k;
writeln('наименьший элемент =', a);
writeln('количество отрицательных элементов =', b);
writeln('количество элементов меньших d =', c);
f:=c+(a+b)/(a*b+1);writeln(f);
end.<span>
</span>
256=2^8 --> 8 бит для кодировки одного пикселя
F =15*15*8 бит =1800 бит = 15*15 байт =225 байт
Для трехзначногозакономерность будет такая
x = a*100 +b*10+c
x*x = (a+b+c)^3
видимо нужно в цикле перебрать от 100 до 999 и посмотреть что попадет под условие