May 25
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.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!

