UC知道pascal 2个弱智题
来源：百度知道 编辑：UC知道 时间：2024/07/02 09:31:04
只能被1和自身整除的数称为素数。例如3、29、101等都是素数。有人曾列出计算素数的算式：N×N＋N＋41(N是0或正整数)。请编程序：验证当N小于某个数时，该算式的计算结果都是素数；输出这个数及之前所求得的所有素数之和。
第2题 数字三角
问题描述：
中山市迎接2010年亚运会活动将要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要坐在自己学校的区域内。
分给成功小学的区域是个等边三角型，这不是不重视成功小学，而是把难题给了成功小学，就是因为成功小学的同学更加优秀，因此这点小问题是难不倒他们的。大家根据座位区域，一下就设计出了以下座位安排方案：
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
……
我们可以看出，1号同学应该坐第一排的第一个，它的座标是（1，1）。而8号同学在第四排的第二个，它的座标是（4，2）。
现在的问题是，我们怎么样才能知道任意一个同学到底坐在哪个座位上（即这个座位的座标）呢？
我想，这个问题可难不倒你，你能编写一个程序帮助成功小学的同学解决这个问题吗？
输入格式:
输入一个整数N（1<=N<=32767），表示第N个同学。
输出格式：
输出两个整数i，j，中间用一个空格隔开，表示第N个同学的座位在第i行的第j个位置。
样例输入输出：
输入样例：
输出样例：
5
3 2
第2题 数字三角
问题描述：
中山市迎接2010年亚运会活动将要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要坐在自己学校的区域内。
分给成功小学的区域是个等边三角型，这不是不重视成功小学，而是把难题给了成功小学，就是因为成功小学的同学更加优秀，因此这点小问题是难不倒他们的。大家根据座位区域，一下就设计出了以下座位安排方案：
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
……
我们可以看出，1号同学应该坐第一排的第一个，它的座标是（1，1）。而8号同学在第四排的第二个，它的座标是（4，2）。
现在的问题是，我们怎么样才能知道任意一个同学到底坐在哪个座位上（即这个座位的座标）呢？
我想，这个问题可难不倒你，你能编写一个程序帮助成功小学的同学解决这个问题吗？
输入格式:
输入一个整数N（1<=N<=32767），表示第N个同学。
输出格式：
输出两个整数i，j，中间用一个空格隔开，表示第N个同学的座位在第i行的第j个位置。
样例输入输出：
输入样例：
输出样例：
5
3 2
1.
var
n,i,j,he:dword;
function sushu(n:dword):boolean;
var
k:dword;
begin
n:=n*n+n+41;
for k:=2 to n-1 do
if n mod k=0 then begin sushu:=false;exit;end;
sushu:=true;
he:=he+n;
end;
begin
n:=0;
he:=0;
while sushu(n) do
n:=n+1;
writeln('n=',n,' total=',he);
readln;
readln;
end.
2.
var
n,b,x:word;
begin
read(n);
writeln;
b:=1;
x:=1;
while n>b do
begin
n:=n-b;
b:=b+1;
x:=x+1;
end;
writeln(x,' ',b);
readln;
readln;
end.
题：
[问题1]素数算式
规定只能被1和自身整除的数称为素数。例如3、29、101等都是素数。有人曾列出计算素数的算式：N×N＋N＋41(N是0或正整数)。请编程序：验证当N小于某个数时，该算式的计算结果都是素数；输出这个数及之前所求得的所有素数之和。
[问题2] 数字三角
中山市迎接2010年亚运会活动将要在兴中体育场举行，市教育局为每个学校安排了一个区域，每个学校的同学都要坐在自己学校的区域内。
分给成功小学的区域是个等边三角型，这不是不重视成功小学，而是把难题给了成功小学，就是因为成功小学的同学更加优秀，因此这点小问题是难不倒他