Astuces
- Math - Savoir
si un nombre est pair ou impair en Delphi
Ajouter un composant
TButton.
procedure
TForm1.Button1Click(Sender: TObject); Var i:integer; begin
i:=9; //Exemple de nombre if (i/2)=Round(i/2) then ShowMessage('Nombre
pair') else ShowMessage('Nombre impair'); end;