Baccalauréat 2015 Sujet 23 Corrigé

Program S23; Var m,n : integer; //******************************* Procedure saisie(Var m,n:integer); Begin Repeat write('m='); readln(m); Until m In [10..99]; Repeat write('n='); readln(n); Until n In [10..99]; End; //******************************* Function suite_somme(nombre:integer) : integer; Var i, j, k, s,nbr : integer; Begin nbr := 0; For i:=1 To nombre Div 2 Do Begin S := i; j := i; Repeat J := j +1; S := S + j; Until s >= nombre; If S=nombre Then nbr := nbr+1; End; suite_somme := nbr; End; //******************************* Procedure affiche(nombre:integer); Var i, j, k, s : integer; Begin For i:=1 To nombre Div 2 Do Begin S := i; j := i; Repeat J := j +1; S := S + j; Until s >= nombre; If S=nombre Then Begin write (nombre,' = ',i); For k:=i+1 To j Do write(' + ',k); writeln; End; End; End; //******************************* Begin saisie(m,n); If (suite_somme(n)>suite_somme(m)) And (suite_somme(n)<>suite_somme(m)) Then Begin writeln(n,' et ses suites d"entiers consecutifs sont : '); affiche(n); End Else If (suite_somme(n)<suite_somme(m)) And (suite_somme(n)<>suite_somme(m)) Then Begin writeln(m,' et ses suites d"entiers consecutifs sont : '); affiche(m); End Else Begin writeln(n,' et ses suites d"entiers consecutifs sont : '); affiche(n); writeln(m,' et ses suites d"entiers consecutifs sont : '); affiche(m); End; End.