Minggu, 18 Januari 2009

Membuat Program Tahun Kabisat

program kabisat;
uses wincrt;
var
z:integer;
begin
write(' Masukkan sebuah angka tahun = ');readln(z);
if (z mod 4=0) or(z mod 100=0) then
writeln(' Tahun yang anda masukkan adalah Tahun Kabisat')
else
writeln(' Bukan Tahun Kabisat');
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)