1. Pascal / Говнокод #17371

    +72

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    var
  a : array[1..15000] of Integer;
  b : Real;
  c,k,i,j : Int64;
begin

  c:=0;
  k:=0;

for i:=1 to 15000 do
  a[i]:=i;
  
for i:=1 to 15000 do
begin
  for j:=1 to 15000 do
  begin
  b:=a[i] mod j;
    if b=0 then
      k:=k+1;
  end;
  if k=2 then
  begin
  WriteLn(a[i]);
  c:=c+1;
  end;
  
  k:=0;

  if c=1000 then
  break
end;
  
end.

    Ищем простые числа

    Запостил: Toha, 25 Декабря 2014

    Комментарии (5) RSS

    Добавить комментарий