不是VIP会员,不能显示答案

题目解答

题目:
求出1至N(10<N<10000)之间不能被2,3,5,7除尽的整数个数。(18分)
算法描述:定义一个数组A[10..10000] OF INTEGER;其中A(I)存放I,然后进行筛选:将凡是能被2,3,5,7除尽的数,全部变成为0,最后统计出剩下的不为0的数,即为所求。
PROGRAM EX1(INPUT,OUTPUT);
            VAR N,I,S:=INTEGER;
                 A  :ARRAY[10..10000] OF INTEGER;
            BEGIN
              WRITE(‘INPUT N=’);  READ(N);
              FOR I:=1 TO N DO     A[i]:=i       
              FOR I:=1 TO N DO
                  IF    A[i] mod 2=0     OR    (A[I] MOD 3=0)  
                      OR  A[i] mod 5=0   OR   (A[I] MOD 7=0) 
                  THEN  A(I):=0;
                     s:=0   
                  FOR I:=1 TO N DO
                   IF    a[i]<>0      THEN S:=S+1  
                 WRITE(‘S=’,S)
END.
考点:
分析:
解答:
评论:
老师: