viết ct pascal nhập 1 số nguyên dương bất kì và cho biết do la ngày mấy tháng máy 1 tháng cho có 30 ngày
help me please!!!!!
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
24 tháng 1
def kiem_tra_so_ngay(thang):
if thang in [1, 3, 5, 7, 8, 10, 12]:
return 31
elif thang in [4, 6, 9, 11]:
return 30
elif thang == 2:
return "28 hoặc 29"
else:
return "Tháng không hợp lệ"
# Nhập tháng từ người dùng
thang = int(input("Nhập vào một số nguyên là tháng trong năm: "))
# Kiểm tra và xuất ra số ngày tương ứng
so_ngay = kiem_tra_so_ngay(thang)
print(f"Số ngày trong tháng {thang} là: {so_ngay} ngày.")
NH
0
CM
1 tháng 4 2018
Đáp án là B
Theo giả thiết An bỏ ống tiết kiệm từ ngày 1 tháng 1 đến ngày 30 tháng 4 nên tổng số ngày bỏ tiết kiệm là 120 ngày.
Ngày thứ nhất An bỏ ống: 10000 đồng.
119 ngày sau An bỏống sốtiền là: 119 x 5000 =(120 -1)x 5000= 600000- 5000 đồng.
Vậy tổng số tiền tiết kiệm là: a = 600000 – 5000 + 10000 = 605000 đồng.
CM
23 tháng 10 2018
Ngày 3 tháng 2 là ngày thứ ba
Ngày 8 tháng 3 là ngày thứ hai
Ngày đầu tiên của tháng 3 là ngày 1 tháng 3. Đó là thứ hai
Ngày cuối cùng của tháng 1 là ngày 31 tháng 1. Đó là thứ bảy.
20 tháng 8 2018
a) A = { 7;8;9 }
b) B = { 1;3;5;7;8;10;12 }
c) C = { 2 }
Chúc bạn học tốt
kb nha
20 tháng 8 2018
a) A = { tháng 7; tháng 8; tháng 9 }
b) B = { tháng 2; tháng 4; tháng 6; tháng 9; tháng 11 }
c) C = { tháng 2 }
Học tốt !
Cho 1 tháng=30 ngày chứ ko theo lịch đúng ko bạn?
Program thang;
uses crt;
var a,ng,th:integer;
Begin
clrscr;
write('Nhap so:'); readln(a);
a:=a mod 360;
ng:=a mod 30;
th:=a div 30+1;
if ng=0 then
begin
ng:=30;
dec(th);
end;
write('Ngay ',ng,'/',th);
readln;
End.