Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  goo
Language: PASCAL
Code:
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.


          
Comments: