Program S1;
Var
n,p : integer;
//***********************************
Procedure saisie(Var n,p :integer);
Begin
Repeat
write('Donner un entier de 2 chiffres : ');
readln(n);
Until (n In [10..99]);
Repeat
write('Donner un entier de 3 chiffres : ');
readln(p);
Until (p >=100) And (p<=999);
End;
//***********************************
Procedure affichage(n,p:integer);
Var
res : longint;
Begin
res := n Div 10 *10000+p*10+n Mod 10;
writeln('res = ',res);
End;
//***********************************
Begin
saisie(n,p);
affichage(n,p);
End.
Inscription à :
Publier les commentaires (Atom)
