freepascal求解：给定一个正整数n,请求出2~n之间长度最长,成等差数列的素数（质数）.

b_b88772022-10-04 11:39:542条回答

freepascal求解：给定一个正整数n,请求出2~n之间长度最长,成等差数列的素数（质数）.
例如：当n的值为40时,在2~40之间的全部素数有：2,3,5,7,11,13,17,19,23,31,37.
输出：
5
5 11 17 23 29

已提交，审核后显示！提交回复

共2条回复

Jason_fei 共回答了18个问题 | 采纳率83.3%: 设公差为d,
若d为奇数,最长的素数数列只有2项：2,2+d.
若d为偶数,最长的素数数列只有5项,是因为奇数p1>2,p1+d,p1+2d,p1+3d,p1+4d这5个数中必有一个数,其末位数字为5.; 1年前

12kt 共回答了23个问题 | 采纳率: 您列举的“所有”40以内素数，少了29; 1年前

相关推荐

一道FreePascal题数列求和求：SN=A+AA+AAA+…+AA…A（最后项N个A，共N项）的值。其中A是一位数字 一道FreePascal题 数列求和 求：SN=A+AA+AAA+…+AA…A（最后项N个A，共N项）的值。其中A是一位数字（2≤A+N≤6，1≤N） 例如：当A=2，N=3时，S3=2+22+222=246 输入输出样例： 输入：A，N=2 3↙ 输出：246 bins793211年前1: lixingchen1982 共回答了12个问题 | 采纳率100%

#include
void main(){
int a,n,i,A,N;
printf("输入入A,N(2

1年前查看全部

freepascal中已知两个自然数ab输出a除以b的商余数 余多儿1年前1: 妖狼狼共回答了18个问题 | 采纳率94.4%

program divide(input,output);
var a,b:integer;
begin
write('input a:');
readln(a);
write('input b:');
readln(b);
writeln('a/b=',a div b,'……',a mod b);
end.

1年前查看全部

大家在问