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 ( Pascal)

2 câu trả lời

đây you

program nam_nhuan;

uses crt;

var nam:integer;

begin

        clrscr;

        write('Nhap nam: '');  readln(nam);

        if ((nam mod 4=0) and (nam mod 100<>0)) or (nam mod 400=0)

                then write(nam,' la nam nhuan')

        else write(nam,' khong la nam nhuan');

        readln;

end.

Câu hỏi trong lớp Xem thêm