高精度啊高精度啊高精度啊高精度啊高精度啊高精高精度啊度高精度啊高精度啊啊

太烦了太烦了太烦了太烦了太烦了太烦了太烦了太烦了太烦了太烦了太烦了太烦了太烦了

其实还好，没让你用扩大进制数

交了4遍没过 发现是高精度。。。

var

a,b,r,m,n,min,t:integer;

begin

readln(a,b);

if a

var a,b,c,i:integer;

begin

readln(a,b);

if a

凌晨之雨,int64型的数据可以"FOR"?不得不说,你真的A的离奇...

编译通过...

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

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

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

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

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

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

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

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

├ 测试数据 09：运行超时...

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

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

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

第九个点是怎么回事啊？

我交了几遍都是这样

题目很水数据很牛- -鉴定完毕~ ~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var a,b,c,i:int64;

begin

　　readln(a,b);

　　if a

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

高精大团圆，耐心+细心=秒杀

先求高精gcd

再求lcm:=a/gcd(a,b)*b

type

　　arr=array[-1..400]of integer;

var

　　ans,a,b:arr;

procedure init;

　　var

　　 i:integer;

　　 s1,s2:string;

　　begin

　　 readln(s2);

　　 s1:=copy(s2,1,pos(' ',s2)-1);

　　 a[0]:=length(s1);

　　 for i:=1 to a[0] do a[a[0]+1-i]:=ord(s1[i])-48;

　　 delete(s2,1,pos(' ',s2));

　　 b[0]:=length(s2);

　　 for i:=1 to b[0] do b[b[0]+1-i]:=ord(s2[i])-48;

　　end;

function jia(a,b:arr):arr;

　　var

　　 i:integer;

　　 c:arr;

　　begin

　　 fillchar(c,sizeof(c),0);

　　 if a[0]0 then inc(c[0]);

　　 jia:=c;

　　end;

function jian(a,b:arr):arr;

　　var

　　 i:integer;

　　 c:arr;

　　begin

　　 fillchar(c,sizeof(c),0);

　　 for i:=1 to a[0] do

　　　　begin

　　　　 if a[i]1) do dec(c[0]);

　　 jian:=c;

　　end;

function cheng(a,b:arr):arr;

　　 var

　　 i,j:integer;

　　 c:arr;

　　 begin

　　 fillchar(c,sizeof(c),0);

　　 for i:=1 to a[0] do

　　　　 for j:=1 to b[0] do

　　　　 c:=c+a[i]*b[j];

　　 c[0]:=a[0]+b[0]-1;

　　 for i:=1 to c[0] do

　　　　 begin

　　　　 c:=c+c[i] div 10;

　　　　 c[i]:=c[i] mod 10;

　　　　 end;

　　 while c[c[0]+1]0 do

　　　　 begin

　　　　 inc(c[0]);

　　　　 c[c[0]+1]:=c[c[0]] div 10;

　　　　 c[c[0]]:=c[c[0]] mod 10;

　　　　 end;

　　 cheng:=c;

　　 end;

function compare(a,b:arr):boolean;

　　 var i:integer;

　　 begin

　　 if a[0]>b[0] then exit(true);

　　 if b[0]>a[0] then exit(false);

　　 for i:=a[0] downto 1 do

　　　　 if a[i]b[i] then

　　　　　　if a[i]>b[i] then exit(true)

　　　　　　　　　　　　 else exit(false);

　　 exit(false);

　　 end;

procedure move1(var a,b:arr);

　　 var i:integer;

　　 begin

　　 while compare(a,b) do

　　　　 begin

　　　　 inc(b[0]);

　　　　 for i:=b[0] downto 2 do

　　　　　　 b[i]:=b;

　　　　 inc(b[-1]);

　　　　 b[1]:=0;

　　　　 end;

　　 if compare(b,a) then

　　　　 begin

　　　　 for i:=1 to b[0]-1 do

　　　　　　 b[i]:=b;

　　　　 b[b[0]]:=0;

　　　　 dec(b[0]);

　　　　 dec(b[-1]);

　　　　 end;

　　 end;

procedure move2(var a,b:arr);

　　 var i:integer;

　　 begin

　　 while (compare(b,a)) and (b[-1]>0) do

　　　　 begin

　　　　 for i:=1 to b[0]-1 do

　　　　　　 b[i]:=b;

　　　　 b[b[0]]:=0;

　　　　 dec(b[-1]);

　　　　 dec(b[0]);

　　　　 end;

　　 end;

function chu(a,b:arr):arr;

　　 var

　　 c:arr;

　　 begin

　　 fillchar(c,sizeof(c),0);

　　 move1(a,b);

　　 while not compare(b,a) do

　　　　 begin

　　　　 a:=jian(a,b);

　　　　 inc(c[b[-1]+1]);

　　　　 if b[-1]+1>c[0] then c[0]:=b[-1]+1;

　　　　 if b[-1]>0 then move2(a,b);

　　　　 end;

　　 chu:=c;

　　 end;

function yu(a,b:arr):arr;

　　 begin

　　 move1(a,b);

　　 while not compare(b,a) do

　　　　 begin

　　　　 a:=jian(a,b);

　　　　 move2(a,b);

　　　　 end;

　　 yu:=a;

　　 end;

function gcd(a,b:arr):arr;

　　 var t:arr;

　　 begin

　　 while compare(a,b) or compare(b,a) do

　　　　 begin

　　　　 if compare(b,a) then

　　　　　　 begin

　　　　　　 t:=a;

　　　　　　 a:=b;

　　　　　　 b:=t;

　　　　　　 end;

　　　　 if (b[0]=1) and (b[1]=0) then exit(a);

　　　　 if (b[0]=1) and (b[1]=1) then exit(b);

　　　　 a:=yu(a,b);

　　　　 end;

　　 gcd:=a;

　　 end;

function lcm(a,b:arr):arr;

　　 var

　　 ji,g:arr;

　　 begin

　　 ji:=cheng(a,b);

　　 g:=gcd(a,b);

　　 lcm:=chu(ji,g);

　　 end;

procedure outit;

　　 var i:integer;

　　 begin

　　 for i:=ans[0] downto 1do

　　　　 write(ans[i]);

　　 end;

begin

　　init;

　　ans:=lcm(a,b);

　　outit;

end.

type

　　arr=array[-1..400]of integer;

var

　　ans,a,b:arr;

procedure init;

　　var

　　 i:integer;

　　 s1,s2:string;

　　begin

　　 readln(s2);

　　 s1:=copy(s2,1,pos(' ',s2)-1);

　　 a[0]:=length(s1);

　　 for i:=1 to a[0] do a[a[0]+1-i]:=ord(s1[i])-48;

　　 delete(s2,1,pos(' ',s2));

　　 b[0]:=length(s2);

　　 for i:=1 to b[0] do b[b[0]+1-i]:=ord(s2[i])-48;

　　end;

function jia(a,b:arr):arr;

　　var

　　 i:integer;

　　 c:arr;

　　begin

　　 fillchar(c,sizeof(c),0);

　　 if a[0]0 then inc(c[0]);

　　 jia:=c;

　　end;

function jian(a,b:arr):arr;

　　var

　　 i:integer;

　　 c:arr;

　　begin

　　 fillchar(c,sizeof(c),0);

　　 for i:=1 to a[0] do

　　　　begin

　　　　 if a[i]1) do dec(c[0]);

　　 jian:=c;

　　end;

function cheng(a,b:arr):arr;

　　 var

　　 i,j:integer;

　　 c:arr;

　　 begin

　　 fillchar(c,sizeof(c),0);

　　 for i:=1 to a[0] do

　　　　 for j:=1 to b[0] do

　　　　 c:=c+a[i]*b[j];

　　 c[0]:=a[0]+b[0]-1;

　　 for i:=1 to c[0] do

　　　　 begin

　　　　 c:=c+c[i] div 10;

　　　　 c[i]:=c[i] mod 10;

　　　　 end;

　　 while c[c[0]+1]0 do

　　　　 begin

　　　　 inc(c[0]);

　　　　 c[c[0]+1]:=c[c[0]] div 10;

　　　　 c[c[0]]:=c[c[0]] mod 10;

　　　　 end;

　　 cheng:=c;

　　 end;

function compare(a,b:arr):boolean;

　　 var i:integer;

　　 begin

　　 if a[0]>b[0] then exit(true);

　　 if b[0]>a[0] then exit(false);

　　 for i:=a[0] downto 1 do

　　　　 if a[i]b[i] then

　　　　　　if a[i]>b[i] then exit(true)

　　　　　　　　　　　　 else exit(false);

　　 exit(false);

　　 end;

procedure move1(var a,b:arr);

　　 var i:integer;

　　 begin

　　 while compare(a,b) do

　　　　 begin

　　　　 inc(b[0]);

　　　　 for i:=b[0] downto 2 do

　　　　　　 b[i]:=b;

　　　　 inc(b[-1]);

　　　　 b[1]:=0;

　　　　 end;

　　 if compare(b,a) then

　　　　 begin

　　　　 for i:=1 to b[0]-1 do

　　　　　　 b[i]:=b;

　　　　 b[b[0]]:=0;

　　　　 dec(b[0]);

　　　　 dec(b[-1]);

　　　　 end;

　　 end;

procedure move2(var a,b:arr);

　　 var i:integer;

　　 begin

　　 while (compare(b,a)) and (b[-1]>0) do

　　　　 begin

　　　　 for i:=1 to b[0]-1 do

　　　　　　 b[i]:=b;

　　　　 b[b[0]]:=0;

　　　　 dec(b[-1]);

　　　　 dec(b[0]);

　　　　 end;

　　 end;

function chu(a,b:arr):arr;

　　 var

　　 c:arr;

　　 begin

　　 fillchar(c,sizeof(c),0);

　　 move1(a,b);

　　 while not compare(b,a) do

　　　　 begin

　　　　 a:=jian(a,b);

　　　　 inc(c[b[-1]+1]);

　　　　 if b[-1]+1>c[0] then c[0]:=b[-1]+1;

　　　　 if b[-1]>0 then move2(a,b);

　　　　 end;

　　 chu:=c;

　　 end;

function yu(a,b:arr):arr;

　　 begin

　　 move1(a,b);

　　 while not compare(b,a) do

　　　　 begin

　　　　 a:=jian(a,b);

　　　　 move2(a,b);

　　　　 end;

　　 yu:=a;

　　 end;

function gcd(a,b:arr):arr;

　　 var t:arr;

　　 begin

　　 while compare(a,b) or compare(b,a) do

　　　　 begin

　　　　 if compare(b,a) then

　　　　　　 begin

　　　　　　 t:=a;

　　　　　　 a:=b;

　　　　　　 b:=t;

　　　　　　 end;

　　　　 if (b[0]=1) and (b[1]=0) then exit(a);

　　　　 if (b[0]=1) and (b[1]=1) then exit(b);

　　　　 a:=yu(a,b);

　　　　 end;

　　 gcd:=a;

　　 end;

function lcm(a,b:arr):arr;

　　 var

　　 ji,g:arr;

　　 begin

　　 ji:=cheng(a,b);

　　 g:=gcd(a,b);

　　 lcm:=chu(ji,g);

　　 end;

procedure outit;

　　 var i:integer;

　　 begin

　　 for i:=ans[0] downto 1do

　　　　 write(ans[i]);

　　 end;

begin

　　init;

　　ans:=lcm(a,b);

　　outit;

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

type

arr=array[-1..400]of integer;

var

ans,a,b:arr;

procedure init;

var

i:integer;

s1,s2:string;

begin

readln(s2);

s1:=copy(s2,1,pos(' ',s2)-1);

a[0]:=length(s1);

for i:=1 to a[0] do a[a[0]+1-i]:=ord(s1[i])-48;

delete(s2,1,pos(' ',s2));

b[0]:=length(s2);

for i:=1 to b[0] do b[b[0]+1-i]:=ord(s2[i])-48;

end;

function jia(a,b:arr):arr;

var

i:integer;

c:arr;

begin

fillchar(c,sizeof(c),0);

if a[0]0 then inc(c[0]);

jia:=c;

end;

function jian(a,b:arr):arr;

var

i:integer;

c:arr;

begin

fillchar(c,sizeof(c),0);

for i:=1 to a[0] do

begin

if a[i]1) do dec(c[0]);

jian:=c;

end;

function cheng(a,b:arr):arr;

var

i,j:integer;

c:arr;

begin

fillchar(c,sizeof(c),0);

for i:=1 to a[0] do

for j:=1 to b[0] do

c:=c+a[i]*b[j];

c[0]:=a[0]+b[0]-1;

for i:=1 to c[0] do

begin

c:=c+c[i] div 10;

c[i]:=c[i] mod 10;

end;

while c[c[0]+1]0 do

begin

inc(c[0]);

c[c[0]+1]:=c[c[0]] div 10;

c[c[0]]:=c[c[0]] mod 10;

end;

cheng:=c;

end;

function compare(a,b:arr):boolean;

var i:integer;

begin

if a[0]>b[0] then exit(true);

if b[0]>a[0] then exit(false);

for i:=a[0] downto 1 do

if a[i]b[i] then

if a[i]>b[i] then exit(true)

else exit(false);

exit(false);

end;

procedure move1(var a,b:arr);

var i:integer;

begin

while compare(a,b) do

begin

inc(b[0]);

for i:=b[0] downto 2 do

b[i]:=b;

inc(b[-1]);

b[1]:=0;

end;

if compare(b,a) then

begin

for i:=1 to b[0]-1 do

b[i]:=b;

b[b[0]]:=0;

dec(b[0]);

dec(b[-1]);

end;

end;

procedure move2(var a,b:arr);

var i:integer;

begin

while (compare(b,a)) and (b[-1]>0) do

begin

for i:=1 to b[0]-1 do

b[i]:=b;

b[b[0]]:=0;

dec(b[-1]);

dec(b[0]);

end;

end;

function chu(a,b:arr):arr;

var

c:arr;

begin

fillchar(c,sizeof(c),0);

move1(a,b);

while not compare(b,a) do

begin

a:=jian(a,b);

inc(c[b[-1]+1]);

if b[-1]+1>c[0] then c[0]:=b[-1]+1;

if b[-1]>0 then move2(a,b);

end;

chu:=c;

end;

function yu(a,b:arr):arr;

begin

move1(a,b);

while not compare(b,a) do

begin

a:=jian(a,b);

move2(a,b);

end;

yu:=a;

end;

function gcd(a,b:arr):arr;

var t:arr;

begin

while compare(a,b) or compare(b,a) do

begin

if compare(b,a) then

begin

t:=a;

a:=b;

b:=t;

end;

if (b[0]=1) and (b[1]=0) then exit(a);

if (b[0]=1) and (b[1]=1) then exit(b);

a:=yu(a,b);

end;

gcd:=a;

end;

function lcm(a,b:arr):arr;

var

ji,g:arr;

begin

ji:=cheng(a,b);

g:=gcd(a,b);

lcm:=chu(ji,g);

end;

procedure outit;

var i:integer;

begin

for i:=ans[0] downto 1do

write(ans[i]);

end;

begin

init;

ans:=lcm(a,b);

outit;

end.

//终于AC了……好高兴！

program ex1;

var

a,b,c,d,e,f:longint;

begin

read(a,b);

if a

无聊的题目！！！

高精度gcd,千万不能递归!!!

编译通过...

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

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

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

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

├ 测试数据 05：运行时错误...| 错误号: 202 | 堆栈溢出错

├ 测试数据 06：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 07：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 08：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 09：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 10：运行时错误...| 错误号: 106 | 无效数字格式

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

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

用递归就这结果！！！！！！！！！！！！！！！！！！！！！！！！！！！！

出现灵异事件了！

第一次提交，首先显示为80分，打开结果后，发现2个点202一个点超时，分数变成了70！

第二次用数组模拟栈，显示AC了。打开结果后，发现超时两个点，分数变为80！

然而Flag显示为AC！好奇怪！

这道题用到了高精度乘法、高精度除法、高精度模运算、高精度最大公约数、高精度数比较大小，可谓是高精度题的经典中的经典哦！

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

本人第一次高精度除法,取模。都在这儿了。幸好一次AC。。。

var a,b,c,i:int64;

begin

readln(a,b);

if a