Во 2 строке добавляется только 1 число, поэтому дальше будет выход за границы листа.
Чтобы исправить: добавлять значения в цикле и в 3 строке range(len(A)) => range(len(A)-1)
Дано:
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 страниц.
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadReal('Площадь решета равна');
var a:=ReadArrReal('Введите диаметры клубней:',10);
var d:=sqrt(4*s/pi);
var b:=a.Where(x->x<d);
var n:=b.Count;
if n>0 then begin
Write('Пройдут клубни диаметром '); b.Print;
Writeln(' - всего ',n,' шт.')
end
else Writeln('Ни один клубень не пройдет')
end.
<u>Пример</u>
Площадь решета равна 45
Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.
№1
1001101₂ = 1 * 2⁶ + 1 * 2³ + 1 * 2² + 1 * 2⁰ = 77₁₀
342₇ = 3 * 7² +4 * 7¹ + 2 * 7⁰ = 177₁₀
A26₁₆ = 10 * 16² + 2 * 16¹ + 6 * 16⁰ = 2598₁₀
№2
36₁₀ = 100100₂
197₁₀ = 305₈
681₁₀ = 2A9₁₆
№3
100100110101₂ = 2357₁₀ = 4465₈
1011011₂ = 91₁₀ = 133₈
№4
100110100101₂ = 2469₁₀ = 3A5₁₆
11001111011001₂ = 13273₁₀ = 33d9₁₆
№5
245₈ = 165₁₀ = 10100101₂
573₈ = 379₁₀ = 101111011₂
№6
1BA7₁₆ = 7079₁₀ = 1101110100111₂
ACF₁₆ = 2767₁₀ = 101011001111₂
№7
B68₁₆ = 2920₁₀ = 5550₈
FE9₁₆ = 4073₁₀ = 7751₈
№8
655₈ = 429₁₀ = 1AD₁₆
743₈ = 783₁₀ = 1E3₁₆