program tahunkabisat ;
uses wincrt ;
var
tahun : integer ;
begin
write
('masukkan tahun : ') ; readln (tahun) ;
if tahun mod
100 = 0 then
begin
if
tahun mod 400 = 0 then
writeln ('Tahun Kabisat')
else
writeln ('Bukan Tahun Kabisat') ;
end
else
begin
if
tahun mod 4 = 0 then
writeln ('Tahun Kabisat')
else
writeln ('Bukan Tahun Kabisat') ;
end;
end.
Tidak ada komentar:
Posting Komentar