Une solution de l'exercice 1 du TP6 d'informatique en DEUG MIAS+MASS S1
PROGRAM tp6exc1 ;
VAR i : integer ;
unites, dixaines, centaines, milliers : integer ;
BEGIN
for i:=1000 to 9999 do
begin
unites:=i mod 10 ;
dixaines:=(i div 10) mod 10 ;
centaines:=(i div 100) mod 10 ;
(* N.B. (i div 100)=((i div 10)div 10) *)
milliers:=(i div 1000) mod 10 ;
if unites+dixaines=centaines+milliers
then write(i:5) ;
end ;
writeln ;
END.