Menghitung Bilangan Ganjil Genap Menggunakan Pascal

Sekarang kita akan membuat program sederhana untuk menghitung suatu bilangan apakah termasuk kedalam bilangan ganjil atau genap.

Nah...kita lihat listing program berikut:

Program ganjil_genap;

Uses wincrt;

Var

Bilangan : Integer;

Begin

Clrscr;

Write('Masukan Bilangan ? '); Readln(Bilangan);

If (Bilangan Mod 2) = 0 Then

Writeln ('Genap')

Else

Writeln ('Ganjil');

Readln;

End.

Tampilan yang dihasilkan dari listing diatas adalah sebagai berikut:



Selamat mencoba....

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO