Nhập 1 tháng và 1 năm. Đưa ra màn hình số ngày của tháng đó. Biết năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.
Mọi người giúp em với ạ. Mai em kiểm tra ạ ????????
Nhập 1 tháng và 1 năm. Đưa ra màn hình số ngày của tháng đó. Biết năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100.
Mọi người giúp em với ạ. Mai em kiểm tra ạ ????????
Program NN;
Uses crt;
Var n,t: longint;
Begin
Clrscr;
Write(‘Nhap thang, nam: ‘); Readln(t,n);
If (t=2) and (n mod 4=0) then Write(’29’)
Else if (t=2) and (n mod 4 <> 0) then Write(’28’);
If t in [1,3,5,7,8,10,12] then Write(’31’);
If t in [4,6,11] then Write(’30’);
Readln
End.