Program S6 ;
//***********************************
Function verif(n :integer ) : boolean ;
Var
c, d, u : integer ;
Begin
c := n Div 100 ;
d := n Mod 100 Div 10 ;
u := n Mod 10 ;
verif := ((c*d*u) Mod (c+d+u) = 0) ;
End ;
//***********************************
Procedure affichage ;
Var
i : integer ;
Begin
For
i :=100 To 999 Do
If verif(i) Then
write(i,' - ') ;
End ;
//***********************************
Begin
Affichage ;
End.
Inscription à :
Publier les commentaires (Atom)
