Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
uses crt; var n:longint; begin clrscr; write('Nhap 1 nam bat ky: ');readln(n); if (n mod 4=0)and(n mod 100<>0) then writeln('Day la nam nhuan;') else writeln('Day khong la nam nhuan;'); readln; end.
program oken; uses crt; var nam: longint; begin clrscr; write('Nhap nam: '); readln(nam); if (nam mod 4=0) or (nam mod 400=0) and (nam mod 100<>0) then writeln('Nam ',nam,' la nam nhuan') else writeln('Nam ',nam,' khong phai la nam nhuan'); readln; end.