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) 22/07/2021 Bởi Maria 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)
program nam_nhuan; uses crt; var nam:integer; begin clrscr; write(‘Nhap nam: ”); readln(nam); if ((nam mod 4=0) and (nam mod 100<>0)) or (nam mod 400=0) then write(nam,’ la nam nhuan’) else write(nam,’ khong la nam nhuan’); readln; end. Bình luận
đây you
program nam_nhuan;
uses crt;
var nam:integer;
begin
clrscr;
write(‘Nhap nam: ”); readln(nam);
if ((nam mod 4=0) and (nam mod 100<>0)) or (nam mod 400=0)
then write(nam,’ la nam nhuan’)
else write(nam,’ khong la nam nhuan’);
readln;
end.