151 条题解
-
0
juan1973 LV 10 @ 2013-11-08 08:59:24
const
jing=0.0000000001;
var
n:longint;
i:int64;
x,delta,sum,sum1,sum2:double;
begin
readln(n);
i:=0;
while i<n-1 do
begin
inc(i);
sum:=i*i-i+2*n;
delta:=1+4*sum;
if delta<0 then continue;
x:=(-1+sqrt(delta))/2;;
if (abs(x-trunc(x))<=jing) and (x<=n) then writeln(i,' ',x:0:0);
end;
end.水题不解释。
设首项为x，末项为y，则(x+y)*(y-x+1)/2=n
则(x+y)*(y-x+1)=2*n
化简-x^2+x+y^2+y=2*n
那么我们可以枚举x
这样，x^2-x+2n为定值。
设sum=x^2-x+2n
则y^2+y=sum
那么，可以解方程。
注意精度问题。
还有,i最好开int64，否则i*i可能会爆 -
0
设等差数列的起始项为A，末项为B
项数为B-A+1
M=(A+B)*(B-A+1)/2
即2M=(A+B)*(B-A+1)
将2M质因数分解，得到两个值 S1=A+B S2=B-A+1
因为S1<=sqrt(2M) 所以可以直接枚举A，检测(B-A+1)*(A+B)是否为2M，是则输出
Var
m,a,r,i,j:longint;
procedure f(p,q:longint);
var
x,y:longint;
begin
for x:=1 to q-1 do
if q-2*x+1=p then writeln(x,' ',q-x);
end;
begin
readln(m);
m:=m*2;
for a:=trunc(sqrt(m)) downto 2 do
if m mod a=0 then f(a,m div a);
end. -
0
hashing啊！太完美了
var
list:array[0..10000000]of longint;
next,h:array[0..2000000]of int64;
n,i,xx,tot:longint;
sum:int64;
function check(x:int64):longint;
var
y,hash:longint;
begin
hash:=x mod 10000000;
y:=list[hash];
while y<>0 do
begin
if h[y]=x then exit(y);
y:=next[y];
end;
exit(-1);
end;
procedure ind(x:int64);
var
hash:longint;
begin
inc(tot);
hash:=x mod 10000000;
h[tot]:=x;
next[tot]:=list[hash];
list[hash]:=tot;
end;
begin
readln(n);
for i:=1 to n-1 do
begin
sum:=sum+i;
if (sum>=n) then
begin
xx:=check(sum-n);
if xx<>-1 then
writeln(xx+1,' ',i);
end;
ind(sum);
end;
end. -
0
第二次秒杀...第一次是A+B problem
编译成功测试数据 #0: Accepted, time = 0 ms, mem = 820 KiB, score = 10
测试数据 #1: Accepted, time = 0 ms, mem = 820 KiB, score = 10
测试数据 #2: Accepted, time = 0 ms, mem = 824 KiB, score = 10
测试数据 #3: Accepted, time = 0 ms, mem = 824 KiB, score = 10
测试数据 #4: Accepted, time = 0 ms, mem = 824 KiB, score = 20
测试数据 #5: Accepted, time = 0 ms, mem = 820 KiB, score = 20
测试数据 #6: Accepted, time = 0 ms, mem = 820 KiB, score = 20
Accepted, time = 0 ms, mem = 824 KiB, score = 100
代码
program p1302;
var num,n,i,j,k:longint;
begin
readln(num);
for i:=trunc(sqrt(2*num))+1 downto 2 do
if i mod 2=0 then
begin
n:=num div i;
if (num/i)-trunc(num/i)=0.5 then
writeln(n-(i div 2)+1,' ',n+(i div 2));
end else begin
n:=num div i;
if (num/i)-trunc(num/i)=0 then
writeln(n-(i div 2),' ',n+(i div 2));
end;
end. -
0
zhshcheng1 LV 8 @ 2012-11-09 20:57:04
var
n,a,k,e,m:longint;
o:real;
begin
read(m);
for a:=1 to m do begin if am then begin
while k -
0
szy_1996725 LV 8 @ 2009-11-01 21:45:22
var i,j,n:longint;
begin
readln(n);
for i:=1 to n div 2 do
for j:=2 to n do
begin
if (i+i+j-1)*j div 2>n then break;
if (i+i+j-1)*j div 2=n then writeln(i,' ',i+j-1);
end;end.
-
0
嗯！很好很强大！一重循环即可！
看了题后，写了个求等差数列和的公式，然后转换了下：
n=0.5-a+sqrt(sqr(a1-0.5)+2*s)
再后看了数据范围，于是很高兴的AC
---|---|---|---|---|---|---|---|---|---|--
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msvar t,s,i,j:longint;m:real;
begin
readln(s);
t:=s shr 1;
for i:=1 to t do begin
m:=0.5-i+sqrt(sqr(i-0.5)+2*s);
if m=int(m) then begin
writeln(i,' ',i+m-1:0:0);
end;
end;
end. -
0
记录号 Flag 得分 记录信息 环境 评测机 程序提交时间
R1588982 Accepted 100 From |－
P1302 FPC Vijos Sunny 2009-10-7 19:33:05From cqwshll
连续自然数和编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms枚举 sunny秒杀。
juan1973
LV 10
@ 2013-11-08 08:59:24
