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
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.
Lời giải 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.
Thảo luận
Lời giải 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.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 9
Lớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247