My site

Site menu
Section categories
Info Mahasiswa [0]
Artikel Kampus [4]
Makalah Kampus [1]
Statistics

Total online: 1
Guests: 1
Users: 0
Main » Files » Kampus » Artikel Kampus

Bilangan Genap Dan Ganjil
2009-10-20, 10:19 PM

Program Mencari_Ganjil_Genap;

uses wincrt;

 

Var

   bilangan1:integer;

   bilangan2:integer;

   bilangan3:integer;

   bilangan4:integer;

 

begin

     Writeln('Masukkan nilai pertama');readln(bilangan1);

     Writeln('Masukkan Bilangan kedua');readln(bilangan2);

     bilangan3:=bilangan1 mod 2;

     bilangan4:=bilangan2 mod 2;

     if bilangan3 <> 0 then

     begin

          Writeln ('Angka pertama bilangan ganjil');

     end

     else

         begin

              Writeln ('Angka Pertama bilangan genap');

         end;

 

     if bilangan4 <> 0 then

     begin

          Writeln ('Angka kedua bilangan ganjil');

     end

     else

         begin

              Writeln('Angka kedua bilangan genap');

         end

    

    

end.

Category: Artikel Kampus | Added by: YahyaOteda
Views: 210 | Downloads: 0 | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *:
Search
Site friends
  • Create your own site
  • Tag Board

    Copyright MyCorp © 2018