| | |
| 4. KLEINSTES GEMEINSAMES MEHRFACHES | |
| Statt dem höchsten gemeinsamen Faktors erhalten Sie hier den kleinsten gemeinsamen Faktor. | |
| | |
| 10 REM FIND LCM | |
| 20 CLS | |
| 30 PRINT "SUCHE KLEINSTES GEMEINSAMES" : PRINT "MEHRF." | |
| 40 INPUT "GEBEN SIE 2 ZAHLEN EIN";A,B | |
| 50 IF A = 0 OR B = 0 THEN 110 | |
| 60 IF A > B THEN C = A - 1 : ELSE C = B - 1 | |
| 70 C = C + 1 | |
| 80 IF INT (C / A) < > C / A THEN 70 | |
| 90 IF INT (C / B) < > C / B THEN 70 | |
| 100 PRINT "KLEINSTES GEMEINSAMES MEHRF." : PRINT "=";C | |
| 110 END | |