little math/programming problems April 2023

[Ajaja]

My HP-42s/Free42 version:

Code:

00 { 61-Byte Prgm }
01▸LBL "DICE"
02 CLRG
03 STO 11
04 STO 09
05 2
06 STO 04
07 3
08 STO 05
09▸LBL 04
10 0
11 STO 06
12 5
13 STO 07
14▸LBL 03
15 0
16 STO 08
17▸LBL 01
18 RAN
19 6
20 ×
21 RCL IND ST X
22 STO+ 08
23 DSE 07
24 GTO 01
25 1
26 STO+ 06
27 RCL 08
28 STO 07
29 X>0?
30 GTO 03
31 RCL 06
32 STO+ 10
33 DSE 09
34 GTO 04
35 RCL 10
36 RCL 11
37 ÷
38 END

10000: 5,4555
100000: 5,49717
1000000: 5,492177
10000000: 5,4922995