04-15-2021, 11:27 AM
Hello,
This program searches every Friday the 13th of a year
Before running the program :
f 6 (6 digits)
g - D.MY
13.102 STO 0 (it's an example of friday)
R/S
2021 (Enter the year)
R/S
13.082021 (friday)
0.000 (end)
Conclusion : 2021 has a single Friday the 13th
Explanations (in french) : https://youtu.be/GKpPRt_K-bk
This program searches every Friday the 13th of a year
Before running the program :
f 6 (6 digits)
g - D.MY
13.102 STO 0 (it's an example of friday)
R/S
2021 (Enter the year)
R/S
13.082021 (friday)
0.000 (end)
Conclusion : 2021 has a single Friday the 13th
Code:
001 f Σ 42.32
002 R/S 31
003 1 1
004 EEX 26
005 6 06
006 ÷ 10
007 13 01 – 03
009 + 40
010 STO 2 44.02
011 .01 48 – 00 – 01
014 Σ+ 49
015 ENTER 36
016 13 01 – 03
018 x≤y 43.34
019 GTO 001 43.33.001
020 RCL 0 45.00
021 RCL 2 45.02
022 ΔDYS 43.26
023 7 07
024 ÷ 10
025 Frac 43.24
026 x = 0 43.35
027 GTO 029 43.33.029
028 GTO 011 43.33.011
029 RCL 2 45.02
030 R/S 31
031 GTO 011 43.33.011
Explanations (in french) : https://youtu.be/GKpPRt_K-bk