Program Menentukan Bilangan Genap & Ganjil

dandriabas       Comment   

Kode Pascal Genap

Program Bil_ganjil;
Uses Crt;
Var
        x               : Integer;
        Banyaknya       : Integer;
Begin

        x := 1;
        Clrscr;

        Writeln('Bilangan Genap Untuk 1<=x<=100');
        Writeln('..............................');

        While x < 100 Do
        Begin
             if (x mod 2) = 0. Then
        Begin
             Inc(Banyaknya);
             Write(x:10);
        End;
        x := x + 1;

        End;

Writeln;
Writeln('Jumlah Bilangan Sebanyak : ', Banyaknya);
Readln;
End.

Dan hasilnya akan seperti gambar dibawah ini

Kode Pascal Ganjil

Program Bil_ganjil;
Uses Crt;
Var
        x               : Integer;
        Banyaknya       : Integer;
Begin

        x := 1;
        Clrscr;

        Writeln('Bilangan Genap Untuk 1<=x<=100');
        Writeln('..............................');

        While x < 100 Do
        Begin
             if (x mod 2) = 1. Then
        Begin
             Inc(Banyaknya);
             Write(x:10);
        End;
        x := x + 1;

        End;

Writeln;
Writeln('Jumlah Bilangan Sebanyak : ', Banyaknya);
Readln;
End.

Dan hasilnya akan seperti gambar dibawah ini