2 条评论
-
mike_nzk LV 10 @ 2009-07-03 17:43:28
连分数是正解
-
@ 2009-07-03 16:08:09
续
program abc;
var
p,q:real;
a:longint;
begin
readln(p,q);
p:=p/100;
q:=q/100;
a:=0;
repeat
inc(a);
until (a*p
- 1
连分数是正解
续
program abc;
var
p,q:real;
a:longint;
begin
readln(p,q);
p:=p/100;
q:=q/100;
a:=0;
repeat
inc(a);
until (a*p
