Saturday, 20 June 2015

menentukan ganjil dan genap dengan pascal



uses crt;
var
b :integer;
begin
clrscr;
writeln ('Program Ganjil dan Genap');
writeln;
write ('masukkan angka :'); readln (b);
if (b mod 2=0) then
writeln ('angka ',b,' adalah genap')
else
writeln ('angka ',b,' adalah ganjil');
readln;
end.

No comments :

Post a Comment