Program Algoritma Mengecek Bilangan Ganjil dan Genap

Ini adalah mengecek suatu bilangan merupakan bilangan ganjil atau genap.Suatu bilangan merupakan bilangan genab jika bilangan tersebut habil dibagi 2, sedangkan bilangan ganjil merupakan bilangan yang bersisa bila dibagi angka 2.

Algoritma cek bilangan genap/ganjil :

1. readln (bil);
2. if bil mod 2 = 0 then write('Bil tsb genap');
3. if bil mod 2 <> 0 then write('Bil tsb ganjil');
4. end

Source code program cek bilangan genap/ganjil.

PROGRAM cek_bilangan_ganjil_genap;

     uses wincrt;

     var bil : integer;

begin

     clrscr;

     write('Masukkan suatu bil :');

     read(bil);

     if bil mod 2 = 0

        then

            begin

                 write('Bil tsb genap');            

             end;

     if bil mod 2 <> 0

        then

            begin

                 write('Bil tsb ganjil');            

            end;

        readln;

                      

end.

Jika progrm tersebut kita run maka akan menghasilkan output seperti dibawah ini :

Thanks for reading & sharing Agus Nur Ikhsan