gen_prim.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 27 行

program generator;
{Scrieti un program care genereaza toate nr. prime strict mai mici decat x(x
nr. natural). Valoarea variabilei x se citeste de la tastatura. Numerele prime
generate vor fi scrise in fisierul 'bac.text', cate unul pe linie.}
var x,j:integer;
    fis:text;
    procedure verificare(n:integer);
              var p,i:integer;
              begin
              p:=0;
              for i:=2 to n div 2 do
                  if n mod i=0 then inc(p);
              if p=0 then write(n);
              end;
begin
write('x= ');
readln(x);
if x<2 then write('nu pot sa afisez nr. prime mai mici decat 1')
       else
 begin
 assign(fis,'bac.text');
 rewrite(fis);
 for j:=2 to x-1 do
 writeln(fis,2,verificare(j));
 close(fis);
 end;
end.