--------------------------------------------------------------------------------------------------------------------------
program Menentukan_bilangan_genap_ganjil;{I.S : user memasukan bilangan}
{F.S : menampilkan keterangan bilangan genap atau ganjil}
uses crt;
var
bilangan : integer;
keterangan : string;
begin
writeln('Menentukan Bilangan Genap Atau Ganjil');
writeln('-------------------------------------');
write('Masukan Bilangan : ');readln(bilangan);
writeln('');
writeln(' Hasil ');
writeln('-------------------------------------');
keterangan := 'Bilangan Genap';
if(bilangan mod 2 = 1)
then
keterangan := 'Bilangan Ganjil';
writeln(bilangan,' Adalah : ',keterangan);
readln;
end.
--------------------------------------------------------------------------------------------------------------------------
Download Scripnya :
catatan :
hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.
0 komentar