Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
Только что созданный текстовый файл получил расширение txt
64=2^6 --> 1 символ кодируется 6-ю битами
1 байт =8 бит
объём текста = 6*2000 =12000 (бит) =1500 (байт)
t= 1500(байт) : 50 (байт/с) =30 с
ответ 30с
497=11110001
ответь: 3 ноля