您所在位置：主题：[讨论]不是很难！做做看。
网络千年虫
[专家分：0] 发布于 2007-09-27 23:52:00
REM a problem
cls
READ a,b,c,d
ww=a^2*(c\6+d*j)
DATA 7,8,9,3,6
RESTORE
READ A1,A2,A3
IF A1>6 A2<7.9 THEN
QQ=A1^2+A2/2MOD3
z=ww-qq
IF z<2 THEN 80
DATA 5,89,135
REM NAN MA BU HUI LE BA
PRINT “结果为：”；WW+Z+QQ
80 EDN
cls
READ a,b,c,d
ww=a^2*(c\6+d*j)
DATA 7,8,9,3,6
RESTORE
READ A1,A2,A3
IF A1>6 A2<7.9 THEN
QQ=A1^2+A2/2MOD3
z=ww-qq
IF z<2 THEN 80
DATA 5,89,135
REM NAN MA BU HUI LE BA
PRINT “结果为：”；WW+Z+QQ
80 EDN
