-->
Première méthode:
-->
Deuxième méthode:
Soit A un entier de deux chiffres non nuls et B un entier
de 3 chiffres identiques.
On se propose d’insérer les chiffres de A entre les
chiffres de B
Exemple : A=35 & B=777 .. B devient 73757 Première méthode:
program insert1;
uses wincrt;
var a,a1,a2: integer; b,c:longint;
begin
writeln ('donner a');
readln (a);
writeln ('donner b');
readln (b);
a1:= a div 10;
a2:= a mod 10;
c:= b div 100;
b:=c*10000+a1*1000+c*100+a2*10+c;
writeln ('b devient', b);
end.Deuxième méthode:
program insert2;
uses wincrt;
var a,e:integer; b:longint; ch,ph:string;
begin
repeat
writeln ('donner un nbr de 2 chiff');
readln(a);
until (a>=10)and (a<=99);
repeat;
writeln ('donner un nbr de 3 chiff ident');
readln (b);
str (b,ch);
until (ch[1] = ch[2]) and (ch[2] = ch[3])
and (length (ch) = 3);
str (a,ph);
insert(ph[1], ch, 2);
insert (ph[2], ch , 4);
val (ch,b,e);
writeln('b devient',b);
end.
-->
