Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

"Delphi" Programlama dilinde "Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek" ile ilgili örnek kod aşağıda verilmiştir.

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  number, x: Integer;
begin
  Write('Bir sayı giriniz: ');
  Readln(number);
  x := number mod 2;

  if (x = 0) then
    Writeln('Sayı Çifttir')
  else
    Writeln('Sayı Tektir');
end.



İlginizi Çekebilir

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

Delphi Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği