- 神风堂人数
- 2009-03-21 13:08:52 @
program dyh(input,output);
var
p,q:real;
i:longint;
find:boolean;
begin
readln(p,q);
i:=0;
find:=true;
repeat
i:=i+1;
find:=(trunc(q/100*i-0.001)-trunc(p/100*i))>=1;
until find;
writeln(i);
end.
为什么第6组过不去
2 条评论
-
华好少年 LV 8 @ 2013-08-25 10:05:38
我用real 然后trunc 得出的测试点6的整数10000就减一了 改成extended 调整就过了
-
2010-04-05 11:33:17@
精华部分
精华部分:
repeat
n:=n+1;
c:=n*q/100-trunc(n*p/100);
until (c>1)and(c
- 1