第一题
K=0 (赋初值)
DO 10 I=1,2 (I从1循环到2,循环体到行号10结束)
DO 10 J=1,2 (J从1循环到2,循环体到行号10结束)
10 K=K+I/J (行号10,给K赋值)
WRITE(*,*)K （输出K,使用默认输出设备和默认输出格式）
END （程序结束）
因此K终值为1/1+1/2+2/1+2/2=4,其中1/2由于是整型,所以值为0.
第二题
K=0
DO 10 I=1,6,2 (I从1循环到6,步长为2)
DO 10 J=1,6,3 (I从1循环到6,步长为3)
IF(K.LT.I*J)K=I*J (如果K小于I*J,则给K赋值)
10 CONTINUE （行号10,继续循环）
WRITE(*,*)K
END
因此K终值为5*4=20
你那两个答案不知从何而来,我已经运行过了程序,答案是我说的4和20.