Selamat Datang Di Kelas Produktif Teknik Komputer Jaringan

27 September 2014

program pascal menentukan bilangan genap atau ganjil

program utsd;
uses crt;
var
 bil,sisa: integer;
 pil:char;
begin
     clrscr;
     Repeat
      Write('Masukkan sebuah bilangan : ');Readln(bil);
      sisa:=bil mod 2;
      if sisa=0 then
        Writeln('Bilangan Genap')
      else
         writeln('Bilangan Ganjil: ');
      write('Mau diulangi ?[y/n] : ');readln(pil);
     Until pil='n';
     readln;
end.