mencari tahun kabisat menggunakan pascal

uses wincrt;
var
tahun : integer;

begin
write ('masukan 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.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn