Bài 4. Sử dụng biến trong chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vo quang Truong

Tìm số ngày của năm N, biết rằng năm nhuận là năm chia hết cho 400 hoặc chia hết cho 4 nhưng không chia hết cho 100. VD: năm 2000, 2004 là năm nhuận và có số ngày là 366 Năm 1900, 1945 không phải là năm nhuận và có số ngày là 365

Thiên Hà
10 tháng 2 2020 lúc 14:58

uses crt;

var n:integer;

begin

clrscr;

write('Nhap nam: ');readln(n);

if (n mod 400 =0) or (n mod 4=0) and (n mod 100<>0) then

write('Nam ',n,' la nam nhuan va co so ngay la:',366) else

write('Nam ',n,' khong phai la nam nhuan va co so ngay la:',365);

readln;

end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
10 tháng 2 2020 lúc 16:03

chia hết cho 400 thì nó đã chia hết cho 4 và 100 rồi bạn

vì 4 và 100 là ước của 400

Khách vãng lai đã xóa

Các câu hỏi tương tự
huynh chinh
Xem chi tiết
N. Ruby Phạm
Xem chi tiết
Anh Doan
Xem chi tiết
Hoàng qUỐC mINH tHIEN
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Sara
Xem chi tiết
25 Nguyen khac nam
Xem chi tiết
Nguyễn Duy Dương
Xem chi tiết
01 Nhung Anh 8/19
Xem chi tiết