<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Еж-ежик......................
«Statistical Psychology for the Social Sciences» – «статистический пакет для психологов и социологов»
Var
a: integer;
begin
readln(a);
if (a mod 3 = 0) or (a mod 10 = 4) then
writeln('Да')
else
writeln('Нет')
<span>end.</span>
512 Кбит = 512 000 бит = 512 000 / 8 = 64 000 байт =
64 000 / 1024 = 62.5 Кбайт.
За 5 с можно передать 62.5×5 = 312.5 Кбайт
Комментарий. Некоторые учебники неверно трактуют килобиты и считают, что 1 кбит - 1024 бит. На самом деле бит - системная единица в Си и для неё действуют обычные кратности 10³. А килобайт - единица внесистемная, с кратностью 2¹⁰