Dennnhhhickk

Untitled

Oct 13th, 2016
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.17 KB | None | 0 0
  1. program Project222131;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7. var
  8. n, i, j, i1, f, c: integer;
  9. a: array[1..1900000000] of boolean;
  10.  
  11. begin
  12. readln(n);
  13. while (n <= 2) do
  14. begin
  15. writeln(1);
  16. readln;
  17. readln;
  18. exit;
  19. end;
  20. while (n <= 14) do
  21. begin
  22. writeln(3);
  23. readln;
  24. readln;
  25. exit;
  26. end;
  27. while (n <= 86) do
  28. begin
  29. writeln(15);
  30. readln;
  31. readln;
  32. exit;
  33. end;
  34. while (n <= 518) do
  35. begin
  36. writeln(87);
  37. readln;
  38. readln;
  39. exit;
  40. end;
  41. while (n <= 3110) do
  42. begin
  43. writeln(519);
  44. readln;
  45. readln;
  46. exit;
  47. end;
  48. while (n <= 18662) do
  49. begin
  50. writeln(3111);
  51. readln;
  52. readln;
  53. exit;
  54. end;
  55. while (n <= 111974) do
  56. begin
  57. writeln(18663);
  58. readln;
  59. readln;
  60. exit;
  61. end;
  62. while (n <= 671846) do
  63. begin
  64. writeln(111975);
  65. readln;
  66. readln;
  67. exit;
  68. end;
  69. while (n <= 4031078) do
  70. begin
  71. writeln(671847);
  72. readln;
  73. readln;
  74. exit;
  75. end;
  76. while (n <= 24186470) do
  77. begin
  78. writeln(4031079);
  79. readln;
  80. readln;
  81. exit;
  82. end;
  83. writeln(24186471);
  84. readln;
  85. readln;
  86. end.
Advertisement
Add Comment
Please, Sign In to add comment