7、設N，M的值分別為6，8。

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　INPUT "N=" TO N

　　INPUT "M=" TO M

　　X=MAX(N,M)

　　FOR I=X TO M*N

　　IF MOD(I,M)=0 AND MOD(I,N)=0

　　Y1=I

　　EXIT

　　ENDIF

　　ENDFOR

　　?"Y1="+ALLTRIM(STR(Y1,19))+",Y2="+ALLTRIM(STR(M*N/Y1,19))

　　SET TALK ON

　　參考答案：

　　Y1=24，Y2=2

　　8、設N值為4，字符”A”的ASCII碼為65。

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　INPUT "N=" TO N

　　FOR I=1 TO N

　　?SPACE(N-I+1)

　　FOR J=1 TO 2*I-1

　　??CHR(ASC("A")+J-1)

　　ENDFOR

　　ENDFOR

　　FOR P=N-1 TO 1 STEP -1

　　?SPACE(N-P+1)

　　FOR K=1 TO 2*P-1

　　??CHR(ASC("A")+K-1)

　　ENDFOR

　　ENDFOR

　　SET TALK ON

　　參考答案：

　　A

　　ABC

　　ABCDE

　　ABCDEFG

　　ABCDE

　　ABC

　　A