HP 39g-Grafenberechner - Handbuch (Seite 166)

Exakte Berechnungen und Mathematik mit HP40G
166 Arithmetische Programme
E(
ÖN) -> J
Wenn (N = 1) oder (N mod 2 = 0) oder (N mod 3 = 0) dann
Falsch-
>PREM
sonst
Richtig-
>PREM
/wenn/
wenn N=2 oder N=3 dann
Richtig -
> PREM
/wenn/
5-
>I
solange PREM und I
£ J durchführen
wenn (N mod I = 0) oder (N mod I + 2 = 0) dann
Falsch-
> PREM
sonst
I + 6 -
> I
/wenn/
/solange/
Ergebnis PREM
/Funktion/
8.5.2 Erläuterung HP40G
INPUT N
;"N";;;1:
IF N MOD 2 == 0 OR N MOD 3 == 0 OR N == 1 THEN
0 -
>P:
ELSE
1-
>P:
END:
IF N= =2 OR N= =3 THEN
1-
>P:
END: