同样的程序

。。。。。。。

第一编

编译通过...

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

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

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

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

├ 测试数据 05：运行超时|无输出...

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

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

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

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

├ 测试数据 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

tell me why???

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

什么是倍增法？

program ppp;

var

i,t,m,n,x:longint;

a,b:array[1..10] of longint;

k:int64;

begin

readln(n);

for i:=1 to n do readln(a[i],b[i]);

k:=b[1]; x:=a[1];

for i:=2 to n do

begin

while not(k mod a[i]=b[i]) do k:=k+x;

x:=x*a[i];

end;

write(k);

end.

AD:

畜禽绿色养殖仪

一猪多长好几斤 ！

VIJOS也会用这样的AD吗

不过挺配原题的...

楼下有写拓展GCD的啊，

辛苦了

竟然longint会WA4个点....

老老实实开int64或qword吧..

首先声明下..得用INT64，然后

摘自黑书P230

同余方程

形如a=b(mod c)这样的方程称为同余方程，意思为a(mod c)==b(mod c)

可见，若存在jc(c是正数）满足aj+c=X则x=c(mod a)

设m1,m2,...mk两两互素(这个条件很重要),则下面同余方程组(事实上如果不是方程组的话可以不这么搞..)

x=a1(mod m1)

x=a2(mod m2)

...

x=ak(mod mk)

在0

要用longlong,要不然只能過6個點......................

......小菜鳥飄過......

VAR n,i,j:longint;g:boolean;

a,b:array[1..10]of longint;

begin

readln(n);

for i:=1 to n do

readln(a[i],b[i]);

for i:=a[i] to maxlongint do

begin

g:=true;

for j:=1 to n do

if (i mod a[j])b[j] then

begin

g:=false;

break;

end;

if g then begin

writeln(i);

exit;

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

longint!longint!!!

明白了……数据范围开囧了……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

Flag

　　 Accepted

题号

　　P1164

类型(?)

　　其它

通过

　　1305人

提交

　　6813次

通过率

　　19%

难度

　　0

提交 讨论 题解

type

node=record

n,l:longint;

end;

var

m,i,j:longint;

a:array[0..10]of node;

t:node;

k,ans:qword;

function check(x:qword):boolean;

begin

while (x mod a[i].n=a[i].l) do

begin

k:=k*a[i].n;

inc(i);

end;

if i>m then exit(true);

exit(false);

end;

begin

readln(m);

for i:=1 to 10 do a[i].n:=1;

for i:=1 to 10 do a[i].l:=1;

for i:=1 to m do

read(a[i].n,a[i].l);

for i:=1 to m-1 do

for j:=i+1 to m do

if a[i].nm then exit(true);

exit(false);

end;

begin

readln(m);

for i:=1 to 10 do a[i].n:=1;

for i:=1 to 10 do a[i].l:=1;

for i:=1 to m do

read(a[i].n,a[i].l);

for i:=1 to m-1 do

for j:=i+1 to m do

if a[i].n

var

n,i:longint;

a,b:array[1..10] of longint;

c,d:int64;

begin

readln(n);

for i:=1 to n do

readln(a[i],b[i]);

c:=b[1];d:=a[1];

for i:=2 to n do

begin

while c mod a[i]b[i] do

inc(c,d);

d:=d*a[i];

end;{for}

writeln(c);

end.{main}

huyichen,你为什么写上错的数据范围？

program p1164;

var

n,i:longint;

a,b:array[1..10] of longint;

c,d:int64;

begin

readln(n);

for i:=1 to n do

　　readln(a[i],b[i]);

c:=b[1];d:=a[1];

for i:=2 to n do

　　begin

　　 while c mod a[i]b[i] do

　　　　inc(c,d);

　　 d:=d*a[i];

　　end;{for}

writeln(c);

end.{main}

#include

using namespace std;

ifstream fin("ccyz.in");

ofstream fout("ccyz.out");

int main(){

long long a[10],b[10];

int i;

long long m,s;

int n;

fin>>n;

for (i=1;i>a[i]>>b[i];

m=a[1]+b[1];

while (1){

s=0;

for (i=2;i

暴力枚举40；

快排，再用枚举70；

中国剩余定理80；

快排+二分90；

后来啊，发现有个ai aj互质

一口气，AC....

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

using namespace std;

int main()

{

int i,n,a[11],b[11];

long long ans,add;

scanf("%d",&n);

for(i=0;i

暴露枚举的后果

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

用中国剩余定理第9个点非要骗吗

├ 测试数据 01：运行超时|无输出...

├ 测试数据 02：运行超时|无输出...

├ 测试数据 03：运行超时|无输出...

├ 测试数据 04：运行超时|无输出...

├ 测试数据 05：运行超时|无输出...

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

├ 测试数据 07：运行超时|无输出...

├ 测试数据 08：运行超时|无输出...

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

├ 测试数据 10：运行超时|无输出...

program p1164;

var a,b:array[1..32767]of integer;

i,k,n,m:integer;

bt:boolean;

begin

readln(n);

for k:=1 to n do

readln(a[k],b[k]);

bt:=true;

m:=1;

for k:=1 to 1000 do

begin

while ((bt=true)and(m