PASCAL语言求程序：对于给定的n,求1至n中有多少个数是质数

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/11 00:33:27

const max = 1000000;
var a :array [1..max] of longint;
N,i,j,k :longint;
begin
readln(N);
for i := 2 to N do
begin
if a[i] = 0 then
for j := 2 to N div i do
a[i*j] := 1;
end;
k := 0;
for i := 2 to N do
if a[i] = 0 then
inc(k);
writeln(k);
end.
再问：编译不成功？
再答：我用的是Free Pascal，Turbo Pascal并不允许咱们开一条那麼大的阵列 ~

PASCAL语言求程序：对于给定的n,求1至n中有多少个数是质数用PASCAL语言编写一个求1+2+3+...+N的程序求一pascal程序,给出一个整数n,其中n小于等于10000,请统计n的因数的个数. 罗马废墟给定程序中,函数FUN的功能是:有N X N矩阵,根据给定的m(m pascal求N个数中最大数及其位置 C语言程序编程5. 给定一个一维数组a有N个元素，求最大值。6. 用选择法对10个数按从小到大的顺序排列。7. 有一个3 pascal语言 1~N中能被5整除且至少有一位数字是5的所有整数的个数对于任意大于1的整数n,大于n!+n而小于n!+n的质数的个数有多少个?(其中n!=n*(n-1)*(n-2)*.*3* 给出一个整数n,如果n是偶数,n变为n div 2,否则n变为n*3+1,问经过多少步n变为1,求一pascal程序. 求n个数的最大值和最小值用Pascal 求n个数的最大值和最小值（pascal） 1025:【入门】求n个数的最大值和最小值 pascal