Nhập vào 1 số nguyên N Cho biết N là năm nhuận hay năm không nhuận ( Pascal)
2 câu trả lời
program kiemtra;
uses crt;
var n:longint;
begin
clrscr;
write('Nhap nam: '); readln(n);
if ((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0) then
write('Nam ',n,' la nam nhuan')
else write('Nam ',n,' khong phai nam nhuan');
readln;
end.
uses crt;
var n : integer;
begin
clrscr;
write('nhap so nam : '); readln(n);
if (n mod 4 = 0) or (n mod 400 = 0) and (n mod 100 <> 0)
then writeln('nam ', n ,' la nam nhuan')
else writeln('nam ', n ,' la nam khong nhuan');
readln
end.
