Question

[Nguyễn Thị Ngọc Minh]

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

Answer 1

[Minh Lệ]

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.

Answer 2

[Nguyễn Thị Ngọc Minh]

cảm ơn nha!!!