PASCAL编程

[复制链接]
查看11 | 回复1 | 2012-12-31 21:17:40 | 显示全部楼层 |阅读模式
用free pascal测试过,100%正确的程序var n,w,h,a,m,i:longint;begin read(n,w,h);
//读入火柴根数、盒子的长和宽m:=trunc(sqrt(sqr(w)+sqr(h)));
//利用勾股定理算出最长(斜着放)能放的长度for i:=1 to n dobegin read(a);
//读入火柴...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行