Program Pascal Menentukan Bilangan Genap atau Ganjil menggunakan If

Program Pascal Menentukan Bilangan Genap atau Ganjil menggunakan If

Nahhh ini adalah salah satu program pascal untuk menentukan bilangan genap atau ganjil menggunakan If

1. Programnya

Program GanjilGenap;

uses crt;

var

   Bil : integer;

   Ket : string;

begin

     clrscr;

     Writeln('Program Ganjil Genap');

     Write('Input Bilangan : ');readln(Bil);

     if Bil mod 2 = 0 then

        Ket :='Genap'

     else

         Ket :='Ganjil';

     Write('Keterangan     :',Ket);

     readln;

end.

2. Tampilan Program dalam Pascal

3. Hasil Program bila bilangan genap

4. Hasil Program bila bilangan ganjil