Viết chương trình 1 năm bất kỳ. Xuất ra màn hình Có phải năm nhuận hay không ( năm nhuận: hết 400 hoặc 4 Nhưng không chia hết cho 100)
Viết chương trình 1 năm bất kỳ. Xuất ra màn hình Có phải năm nhuận hay không ( năm nhuận: hết 400 hoặc 4 Nhưng không chia hết cho 100)
program oken;
uses crt;
var nam: longint;
begin
clrscr;
write(‘Nhap nam: ‘); readln(nam);
if (nam mod 4=0) or (nam mod 400=0) and (nam mod 100<>0) then
writeln(‘Nam ‘,nam,’ la nam nhuan’)
else
writeln(‘Nam ‘,nam,’ khong phai la nam nhuan’);
readln;
end.
uses crt;
var n:longint;
begin
clrscr;
write(‘Nhap 1 nam bat ky: ‘);readln(n);
if (n mod 4=0)and(n mod 100<>0) then writeln(‘Day la nam nhuan;’) else writeln(‘Day khong la nam nhuan;’);
readln;
end.