UC知道寻求电脑编程者帮忙
来源：百度知道 编辑：UC知道 时间：2024/06/19 04:28:30
第1题
只能被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
第3题 计算1
问题描述：
计算：S=1*2+2*3+……+19*20 ，注意，本题如果直接输出答案不得分。
输入：
本题无需输入
输出：
输出S的值
(请用电脑语言来编,万分感谢!!!)
只能被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
第3题 计算1
问题描述：
计算：S=1*2+2*3+……+19*20 ，注意，本题如果直接输出答案不得分。
输入：
本题无需输入
输出：
输出S的值
(请用电脑语言来编,万分感谢!!!)
第一个
program cs;
var
i,j:longint;
sum:longint;
n:longint;
goon:boolean;
function pd(a:longint):boolean;
var
i,j:longint;
begin
if a=1 then exit(false);
pd:=true;
for i:=2 to a-1 do
begin
if (a mod i)=0 then exit(false);
end;
end;
begin
sum:=0;
n:=0;
goon:=true;
while goon do
begin
if pd(n*n+n+41) then begin inc(sum,n*n+n+41) ;inc(n); end
else begin
goon:=false;
end;
end;
writeln(n);
writeln(sum);
end.
第二个
program cs;
var
i:longint;
n:longint;
begin
readln(n);
i:=0;
while n>0 do
begin
inc(i);
dec(n,i);
end;
writeln(i,' ',i+n);
end.
第三个
program cs