fork download
copy 
  1. const
  2.   N = 1000;
  3.  
  4. var
  5.   P: array[2..N] of Integer;
  6.  
  7. procedure e();
  8. var
  9.   i, j: Integer;
  10. begin
  11.   fillChar(P, sizeof(P), #1);
  12.   //
  13.   for i := 2 to N div 2 do begin
  14.     //
  15.     if (0 <> P[i]) then begin
  16.       //
  17.       j := i;
  18.       repeat
  19.         //
  20.         j := j + i;
  21.         if (j <= N) then
  22.           P[j] := 0
  23.         else
  24.           break;
  25.         //
  26.       until (false);
  27.     end;
  28.   end;
  29. end;
  30.  
  31. procedure o();
  32. var
  33.   i: integer;
  34. begin
  35.   for i := 2 to N do
  36.     if (0 <> P[i]) then
  37.       write(i, ', ');
  38. end;
  39.  
  40. begin
  41.   e();
  42.   o();
  43. end.
  44.  
Success #stdin #stdout 0.01s 4116KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571, 577, 587, 593, 599, 601, 607, 613, 617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883, 887, 907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997,
https://ideone.com/O5EAR
language:
Pascal (gpc 20070904)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!