Thứ Ba, 9 tháng 7, 2019

Năm nhuận NHUAN

Không có mô tả ảnh.
Năm nhuận là năm có 366 ngày và tháng 2 năm đó có 29 ngày. Ta có cách xác định năm nhuận như sau: năm nhuận là năm chia hết cho 400 hoặc không tròn trăm nhưng chia hết cho 4. Viết chương trình nhập vào một năm bất kì, cho biết đó có phải năm nhuận không ?
Input Output
2012 True
2010 false
2100 False
2000 true
-
Nhãn:

1 nhận xét:

  1. Nhật Anhlúc 17:01 22 tháng 9, 2019

    Uses crt;
    Var nam:longint;
    nhuan:boolean;
    Begin
    readln(nam);
    If (nam mod 400=0)or(nam mod 4=0) then
    nhuan:=true;
    If (nhuan=true) then Write('YES') else Write('NO');
    readln;
    end.

    Trả lờiXóa

Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!

Đăng ký: Đăng Nhận xét (Atom)

Bài được xem nhiều nhất

  • Cặp số CAPSO
    Cho dãy n số nguyên dương a1, a2, …, an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj ...
  • Đếm kí tự khác nhau KTKHAC
    Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau. Input · Dòng 1: số test t · t dòng sau: mỗi dòng 1 xâu ...
  • Kiểm tra ngoặc đơn đúng NGOAC
    Xét xâu S chỉ bao gồm các kí tự ngoặc mở ‘(‘ và ngoặc đóng ‘)’. Xâu S xác định một cách đặt ngoặc đúng, nếu thỏa mãn các điều kiện: · Tổng ...
  • Đếm số nguyên tố cùng nhau
    Cho trước số nguyên dương n. Viết chương trình kiểm tra xem có bao nhiêu số nguyên dương nhỏ hơn hoặc bằng n nguyên tố cùng nhau với n (nghĩ...
  • Giải nén xâu GNEN
    Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. T...
  • Phân tích một số thành tổng ít nhất các số Fibonaci
    Phân tích số nguyên dương thành tổng các số hạng của dãy Fibonaci sao cho ít số hạng nhất (các số hạng không được trùng nhau). Xem clip hư...
  • Số âm lớn nhất SOAM
    (Tuyến sinh phổ thông năng khiếu 2007) Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.Cho một dãy gồm N số nguyên a1, a2, …, aN, mỗi số có gi...
  • Số đảo ngược SODAO
    Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19 Input Output ...
  • Tối giản phân số PHANSO
    Một chuỗi được gọi là có dạng phân số nếu nó có dạng như sau: Tử_số/Mẫu_số. Ví dụ: chuỗi ‘123/456’ biểu diễn cho phân số chuỗi ‘1/12’ biể...
  • Thông tin là gì?
    Loài người sống trong biển thông tin. Con người ta từng giờ từng phút phải quan hệ với thông tin hoặc tự giác hoặc không tự giác. Vậy thì, ...