- 神风堂人数
-
iamanidiot LV 8 @ 2009-02-17 11:51:56
program p1041(input,output);
var
p,q:real;
s,max,min:integer;
begin
read(p,q);
s:=0;
repeat
s:=s+1;
min:=trunc(s*p/100);
max:=trunc(s*q/100);
if (min
3 条评论
-
seakiner LV 8 @ 2009-08-10 09:52:51
我只知道有精度问题,前面大的数据要-0.000001,后面的要+0.00001,不知道为什么…………
-
@ 2009-08-01 13:28:50
咱俩程序上稍有差别，但结果是一样的。
var a,b:real;
c:char;
n:longint;
begin
readln(a,c,b);
n:=0;
while trunc(n*b/100)-trunc(n*a/100) -
@ 2009-07-31 17:06:33
我觉得啊，
应该是 max>trunc(max);
可是我第六个点也过不了
- 1
