Title: Q14 - Code MAPILE

Q: Sans chercher tout le code produit, déterminer le nombre de fois où le code CONTENUG apparaît après la compilation du programme suivant :

programme p :
const m=10 ;
var ent a, b, c, d ;
proc p1 mod (ent n)
var ent x ;
debut
lire(x) ; n := x div m
fin
debut
p1()(a) ; lire(b, c) ;
d:= a+b+c
fin
A: 3

Q: Sans chercher tout le code produit, déterminer le nombre de fois où le code CONTENUL apparaît après la compilation du programme suivant :

programme p :
const r=2 ;
var ent i, j, k, l ;
proc p1 mod (ent a)
var ent x ;
debut
lire(x) ; a := x div m;
si a>0 alors p1()(x) fsi
fin
debut
p1()(i) ; lire(j, k) ;
l:= i+j+k
fin
A: 2