首页
下载
课程学习
存储
区块链
人工智能
游戏开发
音视频
跨平台
大数据
云计算
考试认证
信息化
服务器应用
行业
数据库
安全技术
操作系统
网络技术
编程语言
移动开发
代码
开发工具和环境
操作系统
网络和安全
排序算法
移动开发
后端开发
前端开发
数据库
开发语言
volcano98489
这家伙很懒,什么也没写
资源:1 粉丝:0
+ 关注
volcano98489上传的资源
判断线段线段长度由pascal编写
输入N个点坐标,求所有长度的线段和 var a:array[1..10000] of longint; i,j,n:longint; ans:int64; begin read(n); for i:=1 to n do read(a[i]); for i:=2 to n do for j:=1 to i-1 do ans:=ans+abs(a[i]-a[j]); writeln(2*ans); end.
exe
123KB
2019-02-15 20:11
暂无更多数据