今日放学,见一水题,刷之以庆!

编译通过...

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

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

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

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

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

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

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

就这个题大爷我竟然写了34行。

模拟

找规律

var

a,b:longint;

begin

readln(a);

b:=1;

while a-b>0 do

begin

a:=a -b;

b:=b+1;

end;

if b mod 2=0 then

write(a,'/',b+1-a)

else write(b+1-a,'/',a);

end.

编译通过...

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

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

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

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

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

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

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

program ex;

var i,j,n:longint;

procedure main;

var i,j,t,sb,se:longint;

begin

for i:=1 to n do

begin

se:=(1+i)*i div 2;

if se>=n then break;

end;

sb:=i*(i-1) div 2 +1;

t:=n-sb;

if odd(i) then

writeln(i-t,'/',1+t)

else

writeln(1+t,'/',i-t);

end;

begin

readln(n);

main;

end.

Flag 　　 Accepted

题号 　　P1333

类型(?) 　　其它

通过 　　3038人

提交 　　5652次

通过率 　　54%

难度 　　1

提交 讨论 题解

模拟下？。。

program p1333;

var

n :longint;

k :longint;

p,q :longint;

begin

readln(n);

k:=0;

while k*(k+1)

program p1333;

var k,n,a1,a2:longint;

begin

readln(n);

k:=1;

while k*(k+1)

走'Z'

编译通过...

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

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

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

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

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

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

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

注意Z字形。。。

我先就是理解错了。。。

交了4遍。。。

AC第一百道题

自卑ing 水题被我写成这样..

program ex;

var

n,i,j,a,b,a1,b1:longint ;

BEGIN

read(n) ;

i := 1 ;

while n > 0 do

begin

n := n - i ;

inc(i) ;

end ;

dec(i) ;

n := n + i ;

if odd(i) then

begin

a := i ;

b := 1 ;

a1 := -1 ;

b1 := 1 ;

end else

begin

a := 1 ;

b := i ;

a1 := 1 ;

b1 := -1 ;

end ;

for j := 2 to n do

begin

inc(a,a1) ;

inc(b,b1) ;

end ;

writeln(a,'/',b) ;

END.

一次AC

var i:longint;

a,b:integer;

n,s:longint;

q:longint;

begin

readln(n);

repeat

s:=s+1;

if s mod 2=0 then begin a:=0;b:=s+1;

for i:=1 to s do begin

if q

以后要仔细看题了，不能想当然的这样。

记住是z字形.....

编译通过...

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

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

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

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

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

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

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

program cantor;

var

m,k:longint;

begin

readln(m);

k:=1;

while m-k>0 do

begin

dec(m,k);

inc(k);

end;

if k mod 2=0 then writeln(m,'/',k-m+1) else writeln(k-m+1,'/',m);

readln;

end.

在这个题上我，哭过了哦。

找规律

农夫山泉

水题

program ex46;

var n,l,m,s:longint;

begin

readln(n);

s:=1;

while n>(s*(s+1) div 2) do inc(s);

l:=s*(s+1) div 2-n;

if s mod 2=0 then write(s-l,'/',l+1)

else write(l+1,'/',s-l);

readln;

end.

yezhonger1

你神了。一共5个点你过6个(我LSS)

一次AC

编译通过...

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

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

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

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

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

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

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

var n,b,c:longint;

begin

read(n);

b:=0;

for c:=1 to maxlongint do

begin

b:=b+c;

if b>=n then

begin

b:=n-b+c;

break;

end;

end;

if c mod 20 then write((c-b+1),'/',b)

else write(b,'/',(c-b+1));

end.

var

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

i,j,x,y,n:longint;

begin

read(n);

for i:=1 to (n div 2+1) do

for j:=1 to (n div 2+1) do

begin

a:=i;

b:=j;

end;

x:=1;y:=1;

for i:=2 to n do

begin

if (x=1)and(y mod 2=1) then begin y:=y+1;continue;end;

if (y=1)and(x mod 2=0) then begin x:=x+1;continue;end;

if (y mod 2)=(x mod 2) then begin x:=x-1;y:=y+1;continue;end;

if (x mod 2)(y mod 2) then begin x:=x+1;y:=y-1;continue;end;

end;

write(a[x,y],'/',b[x,y]);

end.

为啥只过六个点？