Question

Se considera numărul natural N. Sa se scrie un program care calculează suma numerelor prime până la N.

Answer 1

procedure prim(a:integer; var x:integer);
begin
var i,c:integer;
x:=0;
for i:=1 to a do 
if (a mod i = 0) then inc(c);
if c=2 then inc(x);
end;

var n,i,x,sum:integer;

begin
write('Numar: ');
read(n);
writeln;

for i:=1 to n do begin 
prim(i,x);
if x=1 then sum+=i;
end;

writeln('Suma: ',sum);
end.