mn giúp mk vs!
viết chương trình cho phép nhập ngày,tháng,năm và in ra ngày, tháng, năm của ngày hôm sau. Biết rằng:
Các tháng 1,3,5,7,8,10,12 có 31 ngày.
Các tháng 4,6,9,11 có 30 ngày.
tháng 2: Năm nhuận có 29 ngày
- Năm không nhuận có 28 ngày
Năm nhuận là năm chia hết cho 4 nhưng không chia hết cho 100.
nhanh giúp mk nha!!!
Program hotrotinhoc;
var ngay,thang,nam : integer;
begin
write('Nhap ngay :'); readln(ngay);
write('Nhap thang :'); readln(thang);
write('Nhap nam :'); readln(nam);
if (ngay<=31) and (thang<=12) then
begin
if (ngay=31) then
if (thang=1) or (thang=3) or (thang=7) or (thang=8) or (thang=10) then
write('Ngay ',01,' Thang ',thang+1,' Nam ',nam)
else if thang=12 then write('Ngay ',01,' Thang ',01,' Nam ',nam+1);
if (ngay<31) then
if (thang=1) or (thang=3) or (thang=7) or (thang=8) or (thang=10) or (thang=12)
then write('Ngay ',ngay+1,' Thang ',thang,' Nam ',nam);
if (ngay=30) then
if (thang=4) or (thang=6) or (thang=9) or (thang=11) then write('Ngay ',01,' Thang ',thang+1,' Nam ',nam);
if (ngay<30) then
if (thang=4) or (thang=6) or (thang=9) or (thang=11) then write('Ngay ',ngay+1,' Thang ',thang,' Nam ',nam);
if (thang=2) and (nam mod 4=0) and not(nam mod 100=0) then
begin
if ngay=29 then write('Ngay ',01,' Thang ',thang+1,' Nam ',nam);
if ngay<29 then write('Ngay ',ngay+1,' Thang ',thang,' Nam ',nam);
end
else
begin
if (ngay=28) and (thang=2) then write('Ngay ',01,' Thang ',thang+1,' Nam ',nam);
if (ngay<28) and (thang=2) then write('Ngay ',ngay+1,' Thang ',thang,' Nam ',nam);
end;
end;
readln
end.
