[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Var t,n: integer;
Begin
Write ('Nhap thang '); Readln(t);
Case t of
2: Begin
Write('Nhap nam '); Readln(n);
if n mod 4 = 0 then write(' Thang 2 co 29 ngay ')
else write('Thang 2 co 28 ngay ');
End;
1,3,5,7,8,10,12: write('Thang ',t,' co 31 ngay ');
4,6,9,11: write('Thang ',t,' co 30 ngay ');
End;
Readln;
End.À mình nhầm
Bạn viết chương trình y chang cái trên của mình kìa. Không được thì chụp màng hình lại đoạn chương trình của bạn mình coi thử.
