Dwarf Home

神风堂人数-20min-模拟

Hint

1、round函数：四舍五入
2、trunc函数：截尾
3、int函数：下取整
4、当分别乘以百分比后仍为整数时，需差为2才成立，通过修改精度可避免这个判断

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var a,b,p,q:real;
    i:longint;
begin
  readln(a,b);
  a:=a/100;
  b:=b/100;
  for i:=1 to maxlongint do begin
    p:=trunc(i*a+0.0000001);
    q:=trunc(i*b-0.0000001);
    if q-p=1 then begin
      writeln(i);
      halt;
    end;
  end;
end.

编译通过…
├ 测试数据 01：答案正确… 0ms
├ 测试数据 02：答案正确… 0ms
├ 测试数据 03：答案正确… 0ms
├ 测试数据 04：答案正确… 0ms
├ 测试数据 05：答案正确… 0ms
├ 测试数据 06：答案正确… 0ms
├ 测试数据 07：答案正确… 0ms
├ 测试数据 08：答案正确… 0ms
├ 测试数据 09：答案正确… 0ms
├ 测试数据 10：答案正确… 0ms
————————-
Accepted 有效得分：100 有效耗时：0ms