Chương trình đơn giản

Thiên Bình

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!!!!!

Tran Nguyễn Đăng Dương
1 tháng 11 2020 lúc 22:21

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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Hà Phương
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Nam Phạm An
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Vân Ngô
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Tú Nhi
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết