Pemrograman Pascal menentukan (Tahun Kabisat atau Bukan)

Latihan Pemrograman Pascal (Tahun Kabisat atau Bukan)

Buatlah sebuah program untuk menerima inputan berupa nilai tahun. Kemudian tentukan apakah nilai tahun yang dimasukkan merupakan tahun kabisat atau bukan.

 • Tahun Kabisat adalah tahun yang habis dibagi 4

Jawaban:

Inputan

Program Tahun_kabisat;

uses crt;

var

        tahun:integer;

begin

        clrscr;

        writeln('Nama : Farhan Misbahul Hayat');

        writeln('Npm  : 202143502440');

        writeln('=============================');

        writeln('>>> Menentukan Tahun kabisat atau bukan <<<');

        write('Masukkan tahun :');

        readln(tahun);

        if tahun mod 4=0 then

                write('Tahun  kabisat')

        else

                write('Bukan Tahun kabisat');

        readln;

end.

Output

Tahun Kabisat

Bukan Tahun Kabisat

Thanks guys