3
2
0
新人
使用道具 举报
农村外出务工人员
739
4
大师
character(len=80) :: str="abc d e f g h i j-k-l m n o-p-q" character(len=32) :: s integer :: i i = index( trim(str) , " " , back=.true.) s = str(i+1:) write(*,*) s end
QQ截图20160818104857.jpg (15.18 KB, 下载次数: 233)
下载附件
2016-8-18 10:49 上传
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给注册后积极发言的新人
颁发给为Fcode网站捐赠的网友
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-25 20:55
Powered by Tencent X3.4
© 2013-2024 Tencent