[size=18px]var s,n:integer;
begin
write('输入变长的条数n');
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6; //本行替换为s:=n*(n-1)*(n-2)/ 6;怎么不行???[/color]
writeln('组成的三角形个数',s);
readln;[/size]
begin
write('输入变长的条数n');
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6; //本行替换为s:=n*(n-1)*(n-2)/ 6;怎么不行???[/color]
writeln('组成的三角形个数',s);
readln;[/size]
解决方案 »
- WIN7收不到UDP广播
- 求助:第一次来这里,请教几个问题,大家帮帮忙!
- 读Excle表数据的奇怪问题
- ExpressQuantumGrid中的cxDrid表头上面的Drag a column header here to group by that column如何改写成中文的提示呢
- 这种思路该怎么实现?谢谢指点
- 做控件时,能否既继承MaskEdit属性,又同时继承DBEdit的属性呢?该如何继承?
- Delphi部分函数、命令、属性中文说明
- 自编控件为何在窗体上无图标显示;
- ***挑战Delphi高手,Delphi编译的Dll在Vb中可以调用,在Delphi不能调用***
- 续上:如何实现ie工具栏的效果(内空)? 如何实现ie菜单栏的效果???
- 3层结构TClientDataSet的使用问题
- 两个程序之间的传送与接收
/ 不限于整数详见帮助
操作数 结果类型/ 实数除 整数, 实数 实数 div 整数除 整数 整数
div只能是整型相除,得整型