ODD

Untuk mengetes suatu angka apakah angka tersebut ganjil atau tidak

Contoh:

Uses crt;

Var angka “longint;

Begin

Crlscr;

Repeat

Write(‘ketikan suatu angka [0=keluar]: ‘);readln(angka);

If angka =0 then exit;

Writeln;

If odd(angka then

Writeln(‘Angka ‘,angka,’adalah angka GANJIL’);

Else

Writeln(‘angka’,angka,’adalah angka GENAP’);

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal