Summation of primes: Difference between revisions
m
→{{header|Pascal}}: uses primsieve instead of primTrial @home limit 1E9 sums to 24739512092254535 in 640ms like https://www.spoj.com/problems/SUMPRIM1/en/
No edit summary |
m (→{{header|Pascal}}: uses primsieve instead of primTrial @home limit 1E9 sums to 24739512092254535 in 640ms like https://www.spoj.com/problems/SUMPRIM1/en/) |
||
Line 443:
</pre>
=={{header|Pascal}}==
uses {{libheader|
<syntaxhighlight lang="pascal">
program SumPrimes;
{$IFDEF FPC}{$MODE DELPHI}{$OPTIMIZATION ON,ALL}{$ENDIF}
{$
uses
SysUtils,
var
p,sum : NativeInt;
begin
sum :=
p := 0;
repeat inc(sum,p);
writeln(sum);
{$IFDEF WINDOWS} readln;{$ENDIF}
|