Program Bilangan Positif Kelipatan 4

--------------------------------------------------------------------------------------------------------------------------
program Bilangan_positif_kelipatan_4;
{I.S. : user memasukan bilangan}
{F.S  : menampilkan hasil pembacaan}
uses crt;
var
     bil        : integer;
     keterangan : string;
begin
     //memasukan sebuah bilangan
     writeln('masukan sebuah bilangan');
     writeln('==========================');
     write('masukan bilangan : ');readln(bil);

     //menampilkann keterangan bilangan
     if ((bil>0) and (bil mod 4=0))
        then
           keterangan:=' adalah bilangan kelipatan 4'
        else
           keterangan:=' bukan bilangan kelipatan 4';
     write(bil,keterangan);


readln;
end.
--------------------------------------------------------------------------------------------------------------------------

Download Scriptnya :

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.