Viết CT tính tổng số nguyên tố từ 1 đến n ( n nhập từ bàn phím )
dùng mảng và kiến thức lớp 8 ạ

Question

Viết CT tính tổng số nguyên tố từ 1 đến n ( n nhập từ bàn phím ) dùng mảng và kiến thức lớp 8 ạ

kimnguen · Answer

uses crt;

var i,n,s: integer;

a: array [1..100] of integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

s:=0;

for i:=2 to sqrt(n) do

begin

if a[i] mod i<>0 then s=s+a[i];

end;

readln;

end.

0 bình luận về “Viết CT tính tổng số nguyên tố từ 1 đến n ( n nhập từ bàn phím ) dùng mảng và kiến thức lớp 8 ạ”