Program Pascal Menentukan Bilangan Genap atau Ganjil menggunakan If serta Perulangan For Next

Program Pascal Menentukan Bilangan Genap atau Ganjil menggunakan If serta Perulangan For Next

Berikut adalah contoh Program Pascal Menentukan Bilangan Genap atau Ganjil menggunakan If serta Perulangan For Next

1. Program
Program GanjilGenap;
uses crt;
var
   N,i:integer;
begin
     clrscr;
     Writeln('Program Ganjil Genap');

     for N:=1 to 10 do
     begin
          Write(N,'.Input Bil=');readln(i);

          if i mod 2=0 then
             Writeln('Keterangan=Genap')
          else
              Writeln('Keterangan=Ganjil');
     end;
     readln;
end.

2. Tampilan Program

3. Hasil Program