注意判断条件！！！！

,,, WA了3次

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

if (int(i*q/100-0.0000001)>i*p/100)

break;

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

i,j,ans,s:longint;

p,q,c1,c2:real;

begin

readln(p,q);

ans:=0;

repeat

inc(ans);

c1:=ans*p/100;

c2:=ans*q/100;

s:=trunc(c2);

until (c1s);

writeln(ans);

end.

怎么这么水。。。

我还以为要考虑什么精度问题……

沃草，精度问题！害我交3次！

可读性强

讲解详细

http://wwzhwdwd.blog.163.com/blog/static/1281514502009818431952/edit/

program p1041;

var i,n1,n2:longint;

　　 n,p,q:double;

begin

readln(p,q);

for i:=1 to 1000000 do

begin

n:=i*p/100; n1:=trunc(n);

inc(n1);

n:=i*q/100; n2:=trunc(n);

if n2=n then dec(n2);

if (n10) then

　　begin

　　writeln(i);

　　exit;

　　end;

end;

end.

编译通过...

├ 测试数据 01：答案正确... 10ms

├ 测试数据 02：答案正确... 1ms

├ 测试数据 03：答案正确... 10ms

├ 测试数据 04：答案正确... 25425ms

├ 测试数据 05：答案正确... 50ms

├ 测试数据 06：答案正确... 50ms

├ 测试数据 07：答案正确... 50ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：45555555555565ms

一次过,水题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111111

恶心的题目

不知道为什么要小数+0.00001而大数-0.00001 有数学大牛 告知一声

还是换成整数做比较好。~

有一个点是10001 。。。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

直接一个for循环AC

n*p%与n*q%之间整数的个数为trunc(n*p%)-trunc(n*q%),但当该式子的值为1时n不一定为问题的解，比如n=2，p=49，q=50时，n*p%=0.98, n*q%=1, 它们用trunc取整后的差为1，但这两个数之间显然没有一个整数，所以在上述式子值为1的前提下，n*q%不为整数时n才为问题的解。另外，当n*p%，n*q%均为整数，且这两个数的差为2时，n也为问题的解。

各位大牛，看看为什么会超时：

var n:longint;

a,b,c,d,p,q:real;

begin

readln(p,q);

n:=0;

p:=p/100;

q:=q/100;

repeat

n:=n+1;

c:=n*p;

b:=n*q;

until (trunc(b)-trunc(c)>0)and (trunc(b)b)and(trunc(c)c);

writeln(n);

end.

var

p,q:real;

i:integer;

begin

readln(p,q);

i:=0;

repeat

i:=i+1;

until (int(p*i/100)=int(q*i/100));

writeln(i);

end.

绝无精度之虞的程序 ~~

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

Program Vijos_P1041;

Var p, q: Real; x, y: Word; i: dWord;

Begin

Read(p, q); x:=Round(p*100); y:=Round(q*100); i:=0;

Repeat Inc(i) Until (x*i Div 100000);

Write(i)

End.

var

a,b:longint;

min,max:double;

begin

readln(min,max);

min:=min/100;

max:=max/100;

for a:=1 to maxlongint do

if int(a*min+0.000000000001)int(a*max-0.000000000001) then

begin

write(a);

halt;

end;

end.

注意

精度要高

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

用real的………………

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

用extended的…………