Program S3;
Var
n : integer;
//***********************************
Procedure saisie (Var n :integer) ;
Begin
Repeat
write('Donner un entier positif : ') ;
readln(n) ;
Until n>0 ;
End ;
//***********************************
Function verif(n:integer) : boolean;
Var
ch : string;
i,j : integer;
ok : boolean ;
Begin
STR(n,ch);
ok := true;
For i:=1 To length(ch)-1 Do
For j:=i+1 To length(ch) Do
If ch[i]=ch[j] Then
ok := false;
verif := ok ;
End;
//***********************************
Begin
saisie(n);
If verif(n) Then
write(n,' est distinct')
Else write(n,' est non distinct');
End .
Inscription à :
Publier les commentaires (Atom)
