// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('output.txt',ReadAllText('input.txt').ToReals.Average.ToString)
end.
Дано:
v= 32768 бит/с.
t= 48c.
i= 2 байт
k= 128
Найти: n
Определим информационный объем переданного файла I₁=v*t, где v - скорость передачи, t- время передачи
I₁= 32768*48= 1572864 бит
1572864 бит/8= 196608 байт
Определим информационный объем одной страницы: I₂=i*k, где i - количество байт на один символ, k- количество символов на одной странице
I₂=2*128*=256 байт
Тогда разделив общий объем файла на объем одной страницы получим искомое количество страниц:
n=I₁/I₂= 196608/256= 768
Ответ: 768 страниц.
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>