Viết CT nhập vào giá trị tháng và năm đó.In ra màn hình số ngày của tháng đó và cho biết tháng đó là đủ,thiếu,hay thừa. -Năm nhuận là năm : hết cho 4

Viết CT nhập vào giá trị tháng và năm đó.In ra màn hình số ngày của tháng đó và cho biết tháng đó là đủ,thiếu,hay thừa.
-Năm nhuận là năm : hết cho 4 hoặc 400
-Sử dụng Case Of End
có thể viết pascal hoặc C.

0 bình luận về “Viết CT nhập vào giá trị tháng và năm đó.In ra màn hình số ngày của tháng đó và cho biết tháng đó là đủ,thiếu,hay thừa. -Năm nhuận là năm : hết cho 4”

  1. program  BiBo212;
    uses crt;
    var Thang,Nam :integer;
    begin
            clrscr;
            repeat
            writeln(‘Nhap thang trong nam: ‘);readln(Thang);
            writeln(‘Nhap nam: ‘);readln(Nam);
            until (Nam>0)and(Thang>0)and(Thang<=12);
            Case Thang of
            1,3,5,7,8,10,12:writeln(‘Thang nay co 31 ngay’);
            4,6,9,11:writeln(‘Thang nay co 30 ngay’);
            2:if (Nam mod 4=0)or(Nam mod 400=0) then writeln(‘Day la thang co 29 ngay’)
                                                else writeln(‘Day la thang co 28 ngay’);
            end;
            readln;
    end.

    Bình luận
  2. program oken;
    uses crt;
    type thang = 1..12;
    var thg: thang;
        nam,a: integer;
    begin
        clrscr;
        write(‘Nhap nam: ‘); readln(nam);
        write(‘Nhap thang cua nam ‘,nam,’: ‘); readln(thg);
        case thg of
            1,3,5,7,8,10,12: writeln(‘So ngay cua thang ‘,thg,’: 31′);
            2:  if (nam mod 4=0) or (nam mod 400=0) then
                    writeln(‘So ngay cua thang 2: ‘,29)
                else
                    writeln(‘So ngay cua thang 2: ‘,28);
            else writeln(‘So ngay cua thang ‘,thg,’: 30′);
        end;
        readln;
    end.

    Bình luận

Viết một bình luận