Просто умножай каждое число на 2
32 64 128 256 512 1024 и так далее
Переводим 3,5 КБ в биты,учитывая,что один знак=8битам
3,5 КБ=286720бит
Теперь делим данное число на кол-во знаков по битам
Получаем 286720/8=35 840 Байт(знаков)
Следует учитывать,что это решение верно,для кодировки КОИ-8
ОТВЕТ:35 840 знаков
Моё решение - во вложении
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.