QB编程序的问题，高手来！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/21 08:03:49
1.求两数的最大公约数、最小公倍数
2.求一数是否为素数

急，高手快来，加分多多（QBASIC）

求两数最小公倍数

100 INPUT "A=",A
110 INPUT "B=",B
120 DIM MAX, MIN, K
130 IF A>=B THEN MAX=A ELSE MAX=B
140 IF A<=B THEN MIN=A ELSE MIN=B
150 K = MAX MOD MIN
160 IF K = 0 GOTO 200
170 MAX = MIN
180 MIN = K
190 GOTO 150
200 PRINT A*B/MIN