1. Írjunk programot véletlen számok generálására Neumann János módszere alapján.

Neumann[seed_,n_]:=NestList[FromDigits[Drop[Drop[IntegerDigits[#^2],-Ceiling[(Length[IntegerDigits[#^2]]-Length[IntegerDigits[#]])/2]],Floor[(Length[IntegerDigits[#^2]]-Length[IntegerDigits[#]])/2]]]&,seed,n];

Neumann[1111,44]

Neumann[1111,4]

FromDigits[Drop[Drop[IntegerDigits[#^2],-Ceiling[(Length[IntegerDigits[#^2]]-Length[IntegerDigits[#]])/2]],Floor[(Length[IntegerDigits[#^2]]-Length[IntegerDigits[#]])/2]]]&[1111]

2. Készítsünk táblázatot az első 12 szabályos sokszögről, írjuk a belsejükbe az oldalak számát és a szomszédos oldalak bezárta szöget.

Grid[Partition[Join[{"Oldalak száma","Szomszédos oldalak közti szög"},Riffle[Table[n,{n,3,14}],Table[180(n-2)/n,{n,3,14}]]],2],Frame->All]