Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**mensch72**

etwas Hardcore:
in der binären Darstellung einer ganzen Zahl ist das niederwertigste Bit=0

Delphi-Quellcode:

			if (zahl and 1) = 0 then 

  ShowMessage('Zahl ist gerade')

else

  ShowMessage('Zahl ist ungerade');

(das überfordert aber teils schon manche Lehrer... )

mensch72 Registriert seit: 6. Feb 2008 838 Beiträge	#10 AW: ungerade und gerade Zahlen erkennen 24. Mai 2019, 11:15 etwas Hardcore: in der binären Darstellung einer ganzen Zahl ist das niederwertigste Bit=0 markieren Delphi-Quellcode: if (zahl and 1) = 0 then ShowMessage('Zahl ist gerade') else ShowMessage('Zahl ist ungerade'); (das überfordert aber teils schon manche Lehrer... )
	Zitat