program premier;
var
i, j, k, n, s: integer;
test: boolean;
begin
j := 1;
{ Le 1 n'est pas
considerer comme un nombre premier }
writeln('http://www.Software-DS.com');
writeln;
writeln('Calcul de la somme des n premiers nombre
premiers.');
writeln('n=?');
readln(n);
writeln;
if n = 1 then
s := 2
else if n = 2 then
s := 5
else
begin
s := 5;
test := true;
i := 3;
k := 2;
repeat
j := 1;
repeat
j := j + 2;
if (i mod j) = 0 then
test := false;
until (sqrt(i) <= j) or (test = false);
if test = true then
begin
s := s + i;
k := k + 1;
end
else
test := true;
i := i + 2;
until k = n;
end;
writeln('Somme= ', s : 0);
writeln;
readln(i);
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
02/10/01 }
end.
|