用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

本帖地址： http://bbs.pfan.cn/post/221535.html

回复列表（共23个回复）

沙发

def [专家分：3380] 发布于 2007-03-18 19:07:00

b=0
input "n(n>0,n is integer)=",n
for i=1 to n
  a=0
  for j=1 to i
    a=a*10
    a=a+i
  next j
  b=b+a
next i
print b

板凳

def [专家分：3380] 发布于 2007-03-18 19:16:00

还是ITAngle好,要不要当酸法专家?

3 楼

chyx [专家分：450] 发布于 2007-03-23 18:10:00

cls
input n
a=1
for i=2 to n
a=a+val(string$(i,"1"))
next i
print a

4 楼

随便你好 [专家分：530] 发布于 2007-03-23 19:11:00

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

[em20]

5 楼

小精灵LS [专家分：580] 发布于 2007-03-23 19:13:00

CLS
FOR I=1 TO 6
A$=LTRIM$(STR$(I))
B$=STRING$(I,A$)
A=A+VAL(B$)
NEXT I
PRINT A
END

6 楼

超级兔子 [专家分：0] 发布于 2007-03-26 14:42:00

cls
input n
dim q as double
dim s as double
for i=1 to n:q=0
for j=1 to i:q=q*10+i:next j
s=s+q
next i:print s
end

7 楼

小精灵LS [专家分：580] 发布于 2007-04-01 16:27:00

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

8 楼

爱丽斯LING [专家分：560] 发布于 2007-04-01 16:42:00

b=0
input "n(n>0,n is integer)=",n
for i=1 to n
  a=0
  for j=1 to i
    a=a*10
    a=a+i
  next j
  b=b+a
next i
print b

9 楼

游戏之王 [专家分：540] 发布于 2007-04-01 16:51:00

CLS
FOR I=1 TO 5
A=VAL(STRING$(I,I))
S=S+A
NEXT I
PRINT "1+22+333+4444+55555=";S
END

10 楼

蓝莎菲莹 [专家分：370] 发布于 2007-04-01 16:52:00

CLS
FOR I=1 TO 6
A=I
FOR J=1 TO I
A=A+10+J
NEXT J:Y=Y+A:NEXT I
PRINT X
END

我来回复

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

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

回复列表（共23个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

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

回复列表 （共23个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共23个回复）