Menentukan bilangan ganjil atau genap dalam pemrograman bahasa pascal. Ini merupakan contohnya:
program bilangan_genap;
uses wincrt;
var
bil :integer;
ket :string;
begin
write ('masukan bilangan = ');readln(bil);
ket:='ganjil';
if bil mod 2 = 0 then
ket:='genap';
writeln (bil,' merupakan bilangan ',ket);
end.
0 komentar:
Posting Komentar