用Qbasic求1+22+333+4444+55555+666666

您所在位置：社区首页 — QBasic讨论区 — 用Qbasic求1+22+333+4444+55555+666666

主题：用Qbasic求1+22+333+4444+55555+666666

ITAngel [专家分：0] 发布于 2007-03-18 14:41:00

1+22+333+4444+55555+666666

input n 'n大于1
a=1
sn=0
tn=0
for i=1 to n
tn=tn+a
sn=sn+tn*i
a=a*10
print tn*i；
next i
print sn

21 楼

lz27 [专家分：300] 发布于 2007-08-28 14:05:00

用字符串的话那么程序的速度会减慢

22 楼

网虫一号 [专家分：1230] 发布于 2007-09-21 17:37:00

CLS
A$="123456"
FOR I=1 TO 6
B$=MID$(A$,I,1)
S=S+VAL(STRING$(I,B$))
NEXT I
PRINT S
END

23 楼

小精灵1号 [专家分：1040] 发布于 2007-09-21 17:41:00

cls
for i=1 to 6
a$=ltrim$(str$(i))
a=val(string$(i,a$))
s=s+a
next i
print s
end

您尚未登录，请登录后再回复。点此登录或注册