Rizq Technology – Exploring Your iDea.

Script u/ Mencari Tahun kabisat.

Perhitungan Tahun Kabisat.
Uses Wincrt;

Var
tahun: integer;

Begin
Write (‘Masukkan angka tahun = ‘); readln(tahun);
if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0)))
then
begin
Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’);
end
else

Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o ‘);
End.