Quảng cáo
1 câu trả lời 399
Để giải quyết bài toán này, ta có thể sử dụng các công thức liên quan đến năm nhuận. Theo đó:
Năm nhuận là năm chia hết cho 4, trừ những năm chia hết cho 100 nhưng không chia hết cho 400.
Thế kỉ XXI bắt đầu từ năm 2001 và kết thúc vào năm 2100.
Với các thông tin trên, ta có thể viết chương trình Pascal để giải quyết yêu cầu đề bài như sau:
```
program BaiTapNamNhuan;
uses crt;
var
Y1, Y2, i, count, count21: integer;
begin
clrscr;
// Nhập hai số tự nhiên Y1 và Y2
write('Nhap nam Y1: ');
readln(Y1);
write('Nhap nam Y2 (Y2 > Y1): ');
readln(Y2);
// Tính số năm nhuận trong khoảng thời gian từ năm 11 đến năm Y2
count := 0;
for i := 11 to Y2 do
begin
if ((i mod 4 = 0) and (i mod 100 <> 0)) or (i mod 400 = 0) then
count := count + 1;
end;
// Tính số năm nhuận trong thế kỉ XXI
count21 := 0;
for i := 2001 to 2100 do
begin
if ((i mod 4 = 0) and (i mod 100 <> 0)) or (i mod 400 = 0) then
count21 := count21 + 1;
end;
// In kết quả
writeln('So nam nhuan trong khoang thoi gian tu nam 11 den nam ', Y2, ' la: ', count);
writeln('So nam nhuan trong the ky XXI la: ', count21);
readln;
end.
```
Giải thích:
Dòng 4: sử dụng thư viện crt để xóa màn hình.
Dòng 6-9: khai báo biến Y1, Y2 và biến đếm count.
Dòng 11-16: tính số năm nhuận trong khoảng thời gian từ năm 11 đến năm Y2 bằng cách duyệt qua từng năm và kiểm tra điều kiện năm nhuận.
Dòng 18-22: tính số năm nhuận trong thế kỉ XXI bằng cách duyệt qua từng năm và kiểm tra điều kiện năm nhuận.
Dòng 24-25: in kết quả ra màn hình.
Dòng 27: dừng chương trình để người dùng có thể xem kết quả.
Quảng cáo
Bạn muốn hỏi bài tập?
