Файлы.pascal. дано натуральное число n. записать в текстовый файл n простых чисел начиная с 2.

  function prost (x : integer) : boolean;   var    i : integer;     r : boolean;   begin    i : = 2;     r : = true;     while (i < = x div 2) and (r) do    begin      if x mod i = 0 then      r : = false;       i : = i +1;     end;     result : = r;   end;     var    i,n : integer;     t : text;   begin  readln (n);       assign (t,'file.txt');   rewrite (t);     for i : = 2 to n do    begin      if prost(i) then      write (t,i+' ');     end;   close (t);       end.

Uses       system.collections.generic,       system; var       simple: list< integer> : = new list< integer> ;       i, n, p: integer;       m: longint; begin       read(n);       for i : = 2 to n do        begin               m : = 1;               foreach s: integer in simple do                       m : = m * i mod s;               if m > 0 then begin                       simple.add(i); //                      write(i, ' ');               end;       end;       writeln();               foreach s: integer in simple do        begin               if math.pow(2, s) - 1 < = longint.maxvalue then begin                       m : = round(math.pow(2, s) - 1);                       if (m < = n) and simple.contains(m) then                               write(m, ' ');               end;       end; end.

32 45

Объяснение:

калькуляторь оошлала