BELAJAR : JENIS BILANGAN (PASCAL - HASIL)

BENTAR LAGI UJIAN PRAKTEK PASCAL
MESTI RAJIN LATIHAN

• PASCAL

Program JenisBilangan;
uses wincrt;

  var bil: longint;

  begin
     writeln('      MENENTUKAN JENIS BILANGAN');
     writeln('      -------------------------');
     writeln;
     write  ('       Masukkan angka: ');readln(bil);
     writeln;

     if bil mod 2 = 0 then
     writeln('       bilangan genap')
     else 
     writeln('       bilangan ganjil');
     

   if((bil=2) or (bil=3) or (bil=5) or (bil=7)) then
       write('bilangan prima')
     else
       if ((bil mod 2 <> 0) and (bil mod 3 <> 0) and (bil mod 5 <> 0) and (bil mod 7 <> 0)) then
     write  ('       bilangan prima')
   else
     write  ('       bukan bilangan prima');
     
      writeln;
     writeln('      -------------------------');
end.

• HASIL

---

Artikel Terkait: