Nhập vào 1 số nguyên N Cho biết N là năm nhuận hay năm không nhuận

0 bình luận về “Nhập vào 1 số nguyên N Cho biết N là năm nhuận hay năm không nhuận”

1. Const Fi=’LEAPYEAR.INP’;

         Fo=’LEAPYEAR.OUT’;

   Var f,g: text;

       n: qword;

   Begin

           Assign(f,Fi); Reset(f);

           Assign(g,Fo); Rewrite(g);

           Read(f,n);

           If (n mod 4=0) or (n mod 400=0) and (n mod 100<>0) then Write(g,’ 366′)

           Else Write(g,’ 365′);

           Close(f);

           Close(g);

   End.

   Đánh giá cho mình nhà chúc bạn học tốt

   Bình luận

2. uses crt;
   var n:longint;
   begin
   clrscr;
      readln(n);
      if(n mod 4=0)and(n mod 100<>0)then writeln(‘Nam nhuan’)
      else if n mod 400=0 then writeln(‘Nam nhuan’)
      else writeln(‘Nam thuong’);
   readln
   end.

   Bình luận