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 ạ
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 ạ
By Ayla
By Ayla
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 ạ
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.