Program S2;
Var
n : longint;
c : string;
//***************************
Procedure saisie (Var n:longint);
Begin
Repeat
write('donner n:');
readln(n);
Until n>=100;
End;
//***************************
Function somme (n:longint) : integer;
Var
i,s,x,e : integer;
ch : string;
Begin
str(n,ch);
s := 0;
For i:=1 To length(ch) Do
Begin
val(ch[i],x,e);
s := s+x
End;
somme := s;
End;
//***************************
Function code(n:longint) : string;
Var
ch,cd,ch1 : string;
s : integer;
Begin
str(n,ch);
Repeat
s := somme(n);
n := s;
writeln('s=',s);
Until (s In [1..9]);
str(s,ch1);
cd := concat(ch1,ch);
code := cd;
End;
//***************************
Begin
saisie(n);
c := code(n);
writeln('le code est : ',c);
End.
Inscription à :
Publier les commentaires (Atom)
