viết chương trình vào 1 tháng và năm bất kì.Kiểm tra xem tháng đó có bao nhiêu ngày.Biết năm nhuận là năm chia hết cho 4 nhưng không chia hết cho 100 hoặc chia hết cho 400
Help@@@
viết chương trình vào 1 tháng và năm bất kì.Kiểm tra xem tháng đó có bao nhiêu ngày.Biết năm nhuận là năm chia hết cho 4 nhưng không chia hết cho 100 hoặc chia hết cho 400
Help@@@
uses crt;
var a,b:longint;
begin
clrscr;
write(‘Thang: ‘); readln(a);
write(‘Nam: ‘); readln(b);
case a of
1,3,5,7,8,10,12: writeln(‘Thang ‘,a,’ co 31 ngay’);
4,6,9,11: writeln(‘Thang ‘,a,’ co 30 ngay’);
else if (a=2) and (b mod 4=0) and (b mod 100<>0) then
writeln(‘Thang ‘,a,’ co 29 ngay’);
else if (a=2) and (b mod 400=0) then writeln(‘Thang ‘,a,’ co 29 ngay’)
else writeln(‘Thang ‘,a,’ co 28 ngay’);
end;
readln
end.
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.