Custom Rom - Program Ganjil atau Genap dengan Bahasa Pascal - erikssonemma

Tidak Ada Tanggapan

Secara garis besar, program ini bekerja melakukan pengecekan suatu bilangan yang diinput apakah merupakan bilangan ganjil atau genap. Bilangan Genap adalah adalah bilangan yang habis dibagi 2, sedangkan bilangan ganjil adalah sebaliknya, bilangan yang tidak habis apabila dibagi 2.

Dibawah ini adalah source code program ganjil genap yang telah berhasil di compile.

program ganjil_genap;
uses crt;
var
    bil:integer;
begin
    clrscr;
    write('Input Bilangan : ');
    readln(bil);
    if (bil mod 2 = 0) then
        writeln(bil,' adalah bilangan genap')
    else
        writeln(bil,' adalah bilangan ganjil');
    readkey;
end.