• Entrée : 5
• Sortie :

1
1 1
1 2 1
1 3 3 1
1 4 6 4 1

Correction : Par Ahmed Fessi

En Pascal 

program tri_pas;
const
  MAX = 10;
var
  c: array[0..MAX, 0..MAX] of integer;
  n, p: integer;
begin
  for n:=0 to MAX do      (* parcours des lignes *)
     begin
       for p:=0 to n do    (* parcours des colonnes *)
         begin
           if (p=0) or (n=p) then c[n,p] := 1
                             else c[n,p] := c[n-1,p] + c[n-1,p-1];
           write(c[n,p]:4);
         end;
       writeln;
     end;
end.