Viết chương trình nhập 1 tháng bất kì rồi đưa ra màn hình số ngày của tháng đó Pascal

0 bình luận về “Viết chương trình nhập 1 tháng bất kì rồi đưa ra màn hình số ngày của tháng đó Pascal”

1. Program NN;
   Uses crt;
   Var n,t: longint;
   Begin
           Clrscr;
           Write(‘Nhap thang, nam: ‘); Readln(t,n);
           If (t=2) and (n mod 4=0) then Write(’29’)
           Else if (t=2) and (n mod 4 <> 0) then Write(’28’);

           If t in [1,3,5,7,8,10,12] then Write(’31’);
           If t in [4,6,11] then Write(’30’);
           Readln
   End.

   Bình luận