64 = 2^6 т.е. занимает 6 бит на символ
6*100 = 600 бит
600/8 = 75 байт
Program stas;const a=240; b=256; c=128;var sum:real;begin sum:=(a*b*c)/1024; writeln(sum)end.
begin
var eps := ReadReal('Введите желаемую точность:');
var b := 1 / (2 * 3 * 4);
var s := b;
var i := 2;
var a: real;
repeat
a := b;
b := 1 / ((i + 1) * (i + 2) * (i + 3));
s += b;
Inc(i)
until Abs(b - a) <= eps;
Println(s)
end.