Question

viết chương trình nhập vào 1 số tự nhiên n in ra tổng của các số nguyên tố nhỏ hơn hoặc =n

các bạn giúp mình với ạ

Answer 1

uses crt;

var n,i,j,kt,s:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then s:=s+i;

end;

writeln(s);

readln;

end.