151 条题解
-
0
zby1234 LV 8 @ 2009-03-06 23:24:38
#include
using namespace std;
int main()
{
int n,i=0;
cin>>n;
while(n-i>1)
n-=++i;
if(i%2==1)cout -
0
lc757695453 LV 8 @ 2009-02-27 13:25:25
program p1333;
var
n,tot:longint;
x,y:integer;
begin
read(n);
tot:=0;x:=1;y:=1;
repeat
tot:=tot+x;
inc(x);
until tot>=n;
dec(x);
//write(x);
tot:=tot-x;
y:=n-tot;
if x mod 2 =0
then write(y,'/',x-y+1)
else write(x-y+1,'/',y);
end. -
0
billyellow LV 4 @ 2009-02-25 16:06:21
#include
int main()
{
int m,n,r;scanf("%d",&n);
r=n;
m=1;
while(1)
{
if((r-(m+1)) -
0
我靠一道水题过了半天还刷通过率。。。
这个Z字形其实是
1 2 6 7
3 5 8
4 9
10
而被我理解成
1 2 4 7
3 5 8
6 9
10
而且样例7正好是两种方法都在同个位置上的，所以查了半天。。。
来过水题的同志们不要理解错了。。。编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
thinnerilove LV 6 @ 2008-12-07 13:52:20
program cantor;
var
n,i,s,d:longint;
begin
readln(n);
i:=1;s:=0;
while n>s do
begin
s:=s+i;
inc(i);
end;
dec(i);s:=s-i;
d:=n-s;
if d>0 then
if odd(i+1) then write(d,'/',i+1-d) else write(i+1-d,'/',d)
else
if odd(i) then write(d+1,'/',i-d) else write(i-d,'/',d+1);
end. -
0
program cantor;
var
n,i,s,d:longint;
begin
readln(n);
i:=1;s:=0;
while n>s do
begin
s:=s+i;
inc(i);
end;
dec(i);s:=s-i;
d:=n-s;
if d>0 then
if odd(i+1) then write(d,'/',i+1-d) else write(i+1-d,'/',d)
else
if odd(i) then write(d+1,'/',i-d) else write(i-d,'/',d+1);
end. -
0
12miaoyang88 LV 3 @ 2008-10-29 17:49:32
很神奇...
zby1234
LV 8
@ 2009-03-06 23:24:38
