| | |
| 3. GRÖSSTER GEMEINSAMER FAKTOR | |
| Geben Sie lediglich zwei Zahlen ein, und der Computer sagt Ihnen dann den höchsten gemeinsamen Faktor. | |
| | |
| 10 REM FIND HCF | |
| 20 CLS | |
| 30 PRINT "SUCHE GROESSTEN GEMEINS. FAKTOR" | |
| 40 INPUT "GEBEN.SIE 2 ZAHLEN EIN";A,B | |
| 50 IF A = 0 OR B = O THEN 100 | |
| 60 IF A > B THEN A = A - B | |
| 70 IF A < B THEN B = B - A | |
| 20 IF A < > B THEN 60 | |
| 90 PRINT "GROESSTER GEMEINS. FAKTOR =";A | |
| 100 END | |