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

TB

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

TD
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ự
HP
Xem chi tiết
NT
Xem chi tiết
TK
Xem chi tiết
NA
Xem chi tiết
TT
Xem chi tiết
VN
Xem chi tiết
LT
Xem chi tiết
TN
Xem chi tiết
LH
Xem chi tiết