Ngừng hoạt động !

Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

TonMeans


    Tháng nào thì có 28 ngày, 29 ngày, 30 ngày, 31 ngày ?

    Admin
    Admin
    Admin
    Admin


    Tổng số bài gửi : 239
    Join date : 19/05/2011
    Age : 28
    Đến từ : VietNam
    • Post n°1

    Tháng nào thì có 28 ngày, 29 ngày, 30 ngày, 31 ngày ? Empty Tháng nào thì có 28 ngày, 29 ngày, 30 ngày, 31 ngày ?

    Bài gửi  Admin Fri May 27, 2011 8:14 pm

    Tháng 1,3,5,7,8,10,12 thì có 31 ngày.
    Tháng 4,6,9,11 thì có 30 ngày.
    Tháng 2:
    -----+ Nếu năm là năm nhuận thì 29 ngày.
    -----+ Nếu không là năm nhuận thì 28 ngày.
    • Về Đầu Trang
    Admin
    Admin
    Admin
    Admin


    Tổng số bài gửi : 239
    Join date : 19/05/2011
    Age : 28
    Đến từ : VietNam
    • Post n°2

    Tháng nào thì có 28 ngày, 29 ngày, 30 ngày, 31 ngày ? Empty Chương trình tính số ngày trong tháng của năm.

    Bài gửi  Admin Fri May 27, 2011 8:26 pm

    Admin đã viết:VAR nam,thang,ngay: WORD;
    BEGIN
    Write('Nhap nam,thang: '); Readln(nam,thang);
    WHILE (((nam<0) OR (nam>9999)) AND ((thang<1) OR (thang>12))) DO
    Readln(nam,thang);
    IF (thang<=7) AND (thang MOD 2<>0) OR ((thang>7) AND (thang MOD 2=0)) THEN ngay:=31
    ELSE IF ((thang=4) OR (thang=6) OR (thang=9) OR (thang=11)) THEN ngay:=30
    ELSE IF (nam MOD 400=0) OR ((nam MOD 4=0) AND (nam MOD 100<>0)) THEN ngay:=29 ELSE
    ngay:=28;
    Write('Co: ',ngay,' ngay trong thang ',thang,' nam ',nam);
    readln
    END.
    • Về Đầu Trang
      Hôm nay: Sun May 19, 2024 9:46 pm