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.
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.
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.
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.