SeedRandom[1]
RandomReal[]

SeedRandom[1]
RandomReal[]

1

N[%/7]

N[%/7]
N[%/7]
N[%/7]
N[%/7]
N[%/7]
N[%/7]
N[%/7]
N[%/7]
N[%/7]
N[%/7]

N[1/7, 6]

N[1/7^2, 6]

TableForm[Table[N[1/7^n, 6], {n, 1, 20}]]

p = {7, 2, 5, 3, 0, 6, 7, 7, 9, 3, 3, 6, 1, 4, 4, 6, 6, 5, 8, 5}

ListPlot[p]

Histogram[p, {1}]

TableForm[Table[N[1/7^(n+20), 6], {n, 1, 20}]]

q = {6, 6, 0, 2, 4, 5, 8, 8, 8, 9, 2, 6, 9, 5, 9, 2, 2, 7, 5, 5}
ListPlot[q]
Histogram[q, 10]

Date

??TimeValue

Clear[Date]

Now

Now

RandomInteger[{0, 9}, 20]

RandomInteger[{0, 9}, 20]

SeedRandom[1]
RandomInteger[{0, 9}, 20]

SeedRandom[1]
RandomInteger[{0, 9}, 20]

RandomInteger[{0, 9}, 20]

ListPlot[RandomReal[{0, 1}, 10^4]]

n = 3
ListPlot[RandomReal[{0, 1}, 10^5, WorkingPrecision->n]]

Histogram[RandomReal[{0, 1}, 10^5, WorkingPrecision->2]]

N[1/7, 21]

inside = 0;
samplepoints = Table[{RandomReal[], RandomReal[]}, {i,1, 100}];
Do[If[Sqrt[samplepoints[[i,1]]^2 + samplepoints[[i,2]]^2] ≤ 1, inside = inside + 1], {i, 1, Length[samplepoints]}];
estimate = N[4*inside/Length[samplepoints]]
unc = N[4*Sqrt[inside]/Length[samplepoints]]

unc = N[4*Sqrt[inside]/Length[samplepoints]]

estimate + unc