PASCAL -CONTOH PROGRAM UNTUK MEMISAHKAN BILANGAN GANJIL DAN BILANGAN GENAP DARI KUMPULAN BILANGAN

Listing Program :

program ganjilgenap;
uses crt;
var limit,ganjil,genap,x : integer;
begin
     clrscr;
     writeln('Memisahkan bilangan ganjil dan bilangan genap');
     write('Tentukan batas pencarian : ');readln(limit);
     write('Bilangan ganjilnya : ');
     for x := 1 to limit do
          if x mod 2 = 1 then
             write(x:3);
     writeln;
     write('Bilangan genapnya  : ');
     for x := 1 to limit do
          if x mod 2 = 0 then
             write(x:3);
     readln;
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog  ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.