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

221 Okunma Delphi

"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.
Mod Göster Sayı Çift Tek Delphi

İlginizi Çekebilir

Delphi Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

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

Delphi Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

Delphi Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Ör ...