救急！用Turbo Pascal！
pascal吧
全部回复
仅看楼主
level 3
1156jins 楼主
2014年08月24日 05点08分 1
level 12
wfwhl12
orz
2014年08月24日 06点08分 2
1156jins
跪求
2014年08月24日 06点08分
level 9
猎火电脑工作室
样例看不清 能打出来吗
2014年08月24日 06点08分 3
1156jins
输入5输出2
2014年08月24日 06点08分
level 9
猎火电脑工作室
var
n,x,y,z,s:longint;
m:real;
begin
read(n);
m:=4/n;
for x:=1 to 98 do
for y:=x+1 to 99 do
for z:=y+1 to 100 do
if 1/x+1/y+1/z=m then inc(s);
writeln(s);
end.
//有待验证
2014年08月24日 06点08分 4
猎火电脑工作室
好吧不用看了这个是错的
2014年08月24日 06点08分
1156jins
回复 猎火电脑工作室 ：为什么？
2014年08月24日 06点08分
猎火电脑工作室
回复 1156jins :输入5得0
2014年08月24日 06点08分
level 3
1156jins 楼主
有人吗，跪求答案。。。
2014年08月24日 06点08分 5
level 12
A1Duke
2014年08月24日 07点08分 6
level 3
1156jins 楼主
var
n,x,y,z,s:longint;
m:real;
begin
read(n);
m:=4/n;
for x:=1 to 98 do
for y:=x+1 to 99 do
for z:=y+1 to 100 do
if 4*x*y*z=y*z*n+x*z*n+x*y*n then inc(s);
writeln(s);
end.
2014年08月24日 07点08分 7
level 3
1156jins 楼主
新问题
2014年08月24日 07点08分 8
level 3
1156jins 楼主
2014年08月24日 08点08分 10
level 9
Inv◎
不会是BDOIOJ 吧
2014年08月25日 12点08分 12
1