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 Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği