А что соединить? Ничего нет!
569(9)=5103
26705(16)=427280
а второе я хз:D
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.
количество информации вычисляется по формуле 2^i=N, где i - количество бит. 2^8 = 256.
Ответ:256.