适用范围：学习一周以上，一年到两年以下的。

一个质数就是一个除了自己和1之外不能被其它整数所整除的自然数。在这个问题当中就是要求写一个截选出质数表序列（从1到N，包括1和N）中的一部分质数。你的程序读入一个N，先求出1到N中的质数序列，然后从质数序列的中部输出C*2个质数（如果质数序列中部个数为偶数）或者C*2-1个质数（如果质数序列中部个数为偶数）
输入：
两个整数N (1
<= N <= 1000)和C (1 <= C <= N)
输出：
先输出N，后跟一个空格，再输出C，加上：然后输出要求数目的质数，如果要求输出的个数超过实际质数表中长度，则输出1到N的所有质数，包括1和N。
注意：时限1s

中国象棋半张棋盘如图1（a）所示。马自左下角往右上角跳。今规定只许往右跳，不许往左跳。比如图4（a）中所示为一种跳行路线，并将所经路线打印出来。打印格式为： 0，0->2,1->3,3->1,4->3,5->2,7->4,8…【图片】var
h,i,t,u,m,k,j,tt:integer;
a:array[0..8,0..4]of boolean;
b:array[0..10,0..2]of integer;
ii:array[1..12] of integer;
procedure shuchu;
begin
writeln;
for h:=1 to t do
write(b[h,1],',',b[h,2],'.');
end; procedure search(x,y:integer);
begin
if a[8,4]=true then
begin
shuchu;
exit;
end;
for i:=1 to 4 do
begin
j:=x;k:=y;
case i of
1 : begin x:=x+1;y:=y+2; end;
2 : begin x:=x+2;y:=y+1; end;
3 : begin x:=x+1;y:=y-2; end;
4 : begin x:=x+1;y:=y-1; end;
end;
if (x<=8) and (y<=4) and (x>=0) and (y>=0)
then
begin
tt:=t;
t:=t+1;
b[t,1]:=x;
b[t,2]:=y;
a[x,y]:=true;
search(x,y);
a[x,y]:=false;
x:=j;y:=k;
end
else
begin
x:=j;y:=k;
end;
end;
end;
begin
fillchar(a,sizeof(a),0);
t:=0;
search(0,0);
end.
为什么只能输出一种算法

首先，tt是干什么的。不过这不是重点，我们看到，这里，只有不断地增加t，而不会减小，这是一个回溯算法，这个t理应会在退出时减小。。。不过这也不是最重要的是
咳咳
重点来了
这是因为这个i是全局变量，当你每次循环时这个i的值都会改变，这在第一次时体现不出来，但是当进行第二次时，这个就乱了，你把i改成局部变量试试，估计好了
还有真心全你把打代码的习惯改改，这样子谁看了也会不爽的，而且可读性很差，难以识别。

我准备创一个pascal答疑吧玩玩，大家一起来玩哦

书上最XX的题，写一个程序，输出该程序的源代码（运行时不能访问源码）（虽然一年前我做出来了。。。。）

htt ps://vi jos.org/p/1086 ，坑XX。。。

有问题尽管提

求题解

P语言中有现成的三角函数么，是度数制还是弧度制，如果是弧度制，可不可以改成度数制，不是自己通过派运算，而是直接sin度数。

建立一个M*M的矩阵，如果M=6，数组元素分别为7 4 8 9 1 5，输出如下
7 4 8 9 1 5
4 8 9 1 5 7
8 9 1 5 7 4
9 1 5 7 4 8
1 5 7 4 8 9
5 7 4 8 9 1

回复 13楼
代码如下，直接手打，可能有编译不过或者小问题
Var
a:Array[1..10000] Of Longint ;
n,i,j:Longint ;
Begin
Readln( n ) ;
For i:=1 To n Do
readln( a[ i ] ) ;
For i:=1 To n Do
Begin
For j:= i To n Do
write( a[ j ], ' ' ) ;
For j:= 1 To i-1 Do
write( a[ j ], ' ' ) ;
writeln ;
End;
End.

如何写三个数的比大小？

求最大公约数和最小公倍数的基本思路，谢谢

H蜀黍养了99999牛 在这99999只牛中有公牛和奶牛
现在天气不错 H蜀黍要把牛儿们拉出去站队了
已知两只公牛之间至少要有9只奶牛才能保证公牛不打架
现在H蜀黍的问题来了：
试问让这99999只牛排成一列并且保证公牛不打架 有多少种排列方法
捏
？
P.S. 考虑到方法会很多 最后的答案统一做一次 mod 5000011 运算...
例：有H蜀黍有4只牛 公牛之间要相隔至少2只奶牛
那么 所有的排列方法如下(B为公牛 C为奶牛)
CCCC
BCCC
CBCC
CCBC
CCCB
BCCB
一共6种...奶牛都视为相同的 公牛也一样 队列中可以没有公牛

膜拜初一大神

我来水一句，我有个弱智问题，现在不敢问，因为太弱智了

您会花生采摘吗？