Program S21;
Var
k,i : integer;
//*********************************
Procedure saisie(Var x:integer);
Begin
Repeat
writeln('x=');
readln(x);
Until x In [2..10];
End;
//*********************************
Function puiss(a,b:integer) : integer;
Var
p : integer;
Begin
p := 1;
For i:=1 To b Do
p := p*a;
puiss := p;
End;
//*********************************
Function premier(x:integer) : boolean;
Var
nb,i : integer;
Begin
nb := 0;
For i:=1 To x Do
If x Mod i=0 Then
nb := nb+1;
premier := nb=2;
End;
//*********************************
Procedure Affiche(k:integer);
Var
i,n : integer;
Begin
writeln('K':6,'i':6,'N':6);
For i:=1 To 10 Do
Begin
n := k*puiss(2,i)+1;
If premier(n) Then
writeln(k:6,i:6,N:6,' Premier')
Else
writeln(k:6,i:6,N:6);
End;
End;
//*********************************
Begin
randomize;
k := random(5)+1;
affiche(k);
End.
Inscription à :
Publier les commentaires (Atom)
