求关于 x 的同余方程 ax ≡ 1 (mod b)的最小正整数解。
标签：cti read sample cli alt dex index 模板 空格
求关于 x 的同余方程 ax ≡ 1 (mod b)的最小正整数解。
输入只有一行，包含两个正整数 a, b，用一个空格隔开。
1 var a,b,x,y,ans:longint; 2 3 function euclid(a,b:longint;var x,y:longint):longint; 4 var t:longint; 5 begin 6 if b=0 then 7 begin 8 euclid:=a; x:=1; y:=0; 9 end 10 else 11 begin 12 euclid:=euclid(b,a mod b,x,y); 13 t:=x; x:=y; y:=t-(a div b)*y; 14 end; 15 end; 16 17 begin 18 readln(a,b); 19 ans:=euclid(a,b,x,y); 20 x:=x mod b; 21 while x<0 do x:=x+b; 22 writeln(x); 23 end.
标签：cti read sample cli alt dex index 模板 空格
原文地址：http://www.cnblogs.com/myx12345/p/6061558.html
