BAC INFO 2016

par **haiethem** Sam 21 Mai - 10:38

program nom_prg;
uses wincrt;
var n:integer;
procedure saisir;
begin
repeat
writeln('Donner n ');
readln(n);
until n in [2..5];
end;

function premier (n:integer):boolean;
var i,nb:integer;
begin
nb:=0;
for i:=1 to n do
if n mod i=0 then nb:=nb+1;
premier :=nb=2;
end;

function fact(n:integer):longint;
var i,f:longint;
begin
f:=1;
for i:=1 to n do
f:=f*i;
fact:=f;
end;

function prefact(n:integer):boolean;
var f:integer;
begin
f:=1;
repeat
f:=f+1;
until premier(f)and((fact(f)+1=n)or(fact(f)-1=n)or(fact(f)>n));
prefact:=(fact(f)+1=n) or(fact(f)-1=n);
end;

function preprim (n:integer):boolean;
var p,pr:integer;
begin
p:=2;
pr:=1;
repeat
pr:=p*pr;
while not premier(p) do p:=p+1;
until (pr-1=n)or(pr+1=n)or(pr>n+1);
end;

procedure afficher;
var i,j,k:integer;
begin
k:=1;
for i:= 1 to n do
begin
j:=k;
repeat
inc(j);
until prefact(j);
writeln(j,' Premier factoriel ');
k:=j+1;
end;
k:=1;
for i:=1 to n do
begin
j:=k+1;
repeat
inc(j);
until preprim(j);
writeln(j,' Premier primoriel ');
k:=j;
end;
end;

begin
saisir;
afficher;
end.