Program Menentukan Genap atau Ganjil

program pascal;
uses wincrt;
var b:longint;
hasil : integer;

begin
writeln('bilangan = '); readln(b);
if (b mod 2)=1 then
write('ganjil')
else
write('genap');

end.

Posted in: mencari nilai genap dan ganjil, pascal, program pascal, program pascal ganjil, program pascal genap, program pascal genap dan ganjil, program pascal mencari genap dan ganjil, turbo pascal