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
2 câu trả lời
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
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.
