Я встретил вас-и все белое в <span>отжившем сердце ожило
вроде 50 символов
16*50=800 бит
800/8=100 байт</span>
Uses crt;
var a,b,h:integer;
begin
read(a,b,h);
writeln('x f(x)');
while a<=b do
begin
writeln(a,' ',sqrt(a*cos(a)*cos(a)):0:3);
a:=a+h;
end;
<span>end.</span>
200/50=4бита, => мощность алфавита = 2 в 4 степени = 16
I=d*t*i*s
t=60сек
d=8000Гц
I=60сек*8000Гц*16бит*1=7680000бит=937,5Кб