[sevx788]

помогите пожалуйста в решении следующей задачи:
необходимо вывести все простые числа от 1 до 10000

мне говорили что делается через переменную типа boolean но реализацию я понять не смог

[Bars1992]

Сори забыл что такое простые числа)

[AND_REY]

Простые числа это типа те что деляться только на себя и 1?

[Asinkrit]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

{$APPTYPE CONSOLE}   uses   SysUtils;   function IsPrime(Prim: Longint): Boolean; var   Z: Real;   Max: LongInt;   Divisor: LongInt; begin   Result := False;   if (Prim and 1) = 0 then     Exit;   Z := Sqrt(Prim);   Max := Trunc(Z) + 1;   Divisor := 3;   while Max > Divisor do   begin     if (Prim mod Divisor) = 0 then       Exit;     Inc(Divisor, 2);     if (Prim mod Divisor) = 0 then       Exit;     Inc(Divisor, 4);   end;   Result := True; end;   var   i:integer;   begin   for i:=1 to 1000 do     if IsPrime(i) then       Write(i,' ');   Readln; end.