Program Kondisi Genap Ganjil Pascal

Buatlah program Kondisi Genap Ganjil pada pascal dengan memasukkan sebuah bilangan sehingga tampilannya seperti diatas.

Jawab :

Program Kondisi_Genap_Ganjil;

Uses Crt;

var

       a : integer;

begin

clrscr;

       Write('Masukkan Angka :');

       readln(a);

       if ((a mod 2 = 0) and (a mod 5 = 0))

          then writeln(a,' merupakan bil genap yang habis dibagi lima');

       if ((a mod 2 <> 0) and (a mod 5 = 0))

          then writeln(a,' merupakan bil ganjil yang habis dibagi lima');

       if ((a mod 2 = 0) and (a mod 5 <> 0))

          then writeln(a,' merupakan bil genap yang tidak habis dibagi lima');

       if ((a mod 2 <> 0) and (a mod 5 <> 0))

          then writeln(a,' merupakan bil ganjil yang tidak habis dibagi lima');

       readln;

end.

Anda sedang membaca artikel tentang Program Kondisi Genap Ganjil Pascal dan Anda bisa menemukan artikel Program Kondisi Genap Ganjil Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-kondisi-genap-ganjil.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Kondisi Genap Ganjil Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait