Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  programmmmm
Language: PASCAL
Code:
program sujet1;
uses wincrt;
var
n,p,res,s,m,c,d,u:integer;
procedure saisie_n(var n,p:integer);
begin

  repeat
    writeln('entrer un entier positif de 2 chiffres');
    readln(n);
  until (n>=10) and (n<=99);

  repeat
    writeln('entrer un entier positif de 3 chiffres');
    readln(p);
  until (p>=100) and (p<=999);

end;                  


{programme principale}
begin
saisie_n (n,p);

s:=n div 10;
u:=n mod 10;
m:=p div 100;
c:=(p mod 100) div 10;
d:=p mod 10;
res:=s*10000+m*1000+c*100+d*10+u;
writeln('n= ',n,'p= ',p,'le resultat sera égal à ',res);
end.
Comments: