+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (12C) Fridays the 13th in a year (/thread-16658.html)
(12C) Fridays the 13th in a year - Schraf - 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
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.011Explanations (in french) : https://youtu.be/GKpPRt_K-bk