诡异的第6组数据

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 条评论

  • @ 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

信息

ID
1041
难度
6
分类
其他 | 数学 点击显示
标签
(无)
递交数
8246
已通过
2314
通过率
28%
被复制
11
上传者