Алгебра в программе Mathematica


Пример 2



Пример 2




Однако полезнее эту функцию модифицировать так, чтобы она выводила на печать только длину отрезка и его начало.
CompositeRunsStart[n_Integer?Positive]:=Block[{pi,p2=3,i=2}, While[(pi,p2}={p2,Prime[++i]}; p2-pl<n+l];Print[{n,pl-H}]]
Тогда вывод выглядел бы так (конец обрезан).








Начало  Назад  Вперед


Книжный магазин