Program dan algoritma mengecek suatu bilangan merupakan bilangan genap atau ganjil dengan bahasa pascal

Kali ini kita akan bahas bagaimana 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 :