在讨论《悲催啊》回复：

```cpp var s1,s2,s3,h,i,j,d:longint; a:array[1..1000] of longint; begin read(s1,s2,s3); for i:=1 to s1 do begin for j:=1 to s2 do begin for h:=1 to s3 do begin…

在讨论《题目、数据错误专用帖》回复：

管理员，P1727计算π是不是有问题，很多人都错。

在讨论《哪错了？》回复：

虽然我是P党，也试了一下你的程序，应该k 去重后个数时才"NO RESULT"

在讨论《这题好猥琐》回复：

赞一个！

在讨论《请大神修改，后面三个点崩了》回复：

##@丁镜脯，你好厉害！

###大神们总么做的？ ```cpp var a,b,s1,s2,s3,s,t,s4,s5,s6,o,k:ansistring; p,p1,p2,p3,p4,p5,p6,p7,p8:real; u,m,n,i,j:longint; begin readln(a); readln(b); readln(n); repea…

在讨论《1200题解》回复：

@[王骏禹](/space/show?uid=6129) 赞一个

```cpp var a,b,s1,s2,s3,s,t,s4,s5,s6,o,k:ansistring; p,p1,p2,p3,p4,p5,p6,p7,p8:real; u,m,n,i,j:longint; begin readln(a); readln(b); readln(n); repeat s1:=s+s1;…

```cpp var n,i,j,k:longint; flag:boolean; function pd(x:longint):boolean; var y:longint; begin pd:=true; for y:=2 to trunc(sqrt(x)) do if x mod y=0 then pd:=fal…

在讨论《第四个点错》回复：

谢谢大家

在讨论《求大神指教》回复：

###@丁镜脯###，如果我会的话一定帮你

在讨论《第四个点错》回复：

好吧，我暂且原谅你

在讨论《大神救命》回复：

@小李飞刀，你会？

```cpp var c,d:array[1..10000] of longint; n,s,a,b,i,t,x,j:longint; begin read(n,s); read(a,b); for i:=1 to n do read(c[i],d[i]); for j:=n downto 2 do for i:=1…

在讨论《求大神指教》回复：


在讨论《求大神指教》回复：

##@[丁镜脯](/space/show?uid=22048) 我都看不懂## Help！

在讨论《大神救命》回复：


```cpp var n,i,j,k:longint; flag:boolean; function pd(x:longint):boolean; var y:longint; begin pd:=true; for y:=2 to trunc(sqrt(x)) do if x mod y=0 then pd:=fal…

在讨论《大神见笑了》回复：

谢谢

```cpp var a,s1,s2,s3:string; t,i,b,c:longint; begin read(a); t:=length(a); i:=4; repeat s1:=s1+copy(a,i,1); i:=i+1; until a[i]=';'; repeat s2:=s2+copy(a,4+i+b,…

在讨论《为毛40？求教》回复：

```cpp var n,y,j:longint; x:qword; begin read(x,n); y:=x+1; x:=1; for j:=1 to n do x:=y*x; write(x); end. ```

在讨论《求第5题的数据》回复：

已做出

在讨论《求第5题的数据》回复：

```cpp var i,a,b,c,e:longint; s,s1,s2,s3:string; j:char; t:boolean; begin read(a,b,c); for i:=123 to (1000 div c) do begin str(i*a,s1); str(i*b,s2); str(i*c,s3)…

求第5题的数据

```cpp var a,b:array[1..10000000] of longint; n,t,i,j,x:longint; begin read(n); for i:=1 to n do begin read(x); a[i]:=i; b[i]:=x; end; for i:=n downto 2 do for…

```cpp var n,i,t,j,m,l:longint; a,k:array[1..100000] of longint; begin read(m,n); for i:=1 to m do read(k[i],a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i…

在讨论《为什么RE、TIE》回复：

谢谢，十分受用

在讨论《为什么RE、TIE》回复：

求帮忙，8:30之前

```cpp var a:array[1..100000] of longint; n,i,x,j,max:longint; begin read(n); for i:=1 to n do read(a[i]); i:=1; while i n do begin if a[i] max then begin j:=x;…

在讨论《请大神纠错》回复：

顶~\(≧▽≦)/~