Dasar Pemograman, Program Ganjil dan Genap

Program Ganjil dan Genap

Dasar Pemograman

Untuk menentukan apakah bilangan ganjil atau genap suatu bilangan berdasarkan input. Caranya sangat mudah.

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

bilangan:integer

begin

writeln ('program ganjil/genap/nol');

writeln ('------------------------');

writeln ('bilangan=');readln (bilangan);

if bilangan=0 then writeln ('nol')

else

if bilangan mod 2=0 then writeln ('genap')

else writeln ('ganjil');

readln;

end.