Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
program oken;
uses crt;
var nam,thang: integer;
begin
clrscr;
write('Nhap nam: '); readln(nam);
repeat
write('Nhap thang: '); readln(thang);
until (thang>0) and (thang<13);
case thang of
1,3,5,7,8,10,12: writeln('Thang ',thang,' co 31 ngay.');
4,6,9,11: writeln('Thang ',thang,' co 30 ngay');
else
if (nam mod 4=0) or (nam mod 400=0) then
writeln('Thang 2 co 29 ngay')
else
writeln('Thang 2 co 28 ngay');
end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
275
181
uses crt;
var a,b:integer;
bo:boolean;
begin write('2020 :');
readln(b);
if (b mod 100=0) then bo:=(b mod 400)=0 else bo:=(b mod 4 )=0;
if bo then begin repeat clrscr;
write('Nhap thang :');
readln(a);
until (a>0) and (a<13);
case a of 2:write('Co 29 ngay');
1,3,5,7,8,10,12:write('Co 31 ngay');
4,6,9,11:write('Co 30 ngay');
end;
end;
if (not bo) then begin repeat clrscr;
write('Nhap thang :');
readln(a);
until (a>0) and (a<13);
case a of 2:write('Co 28 ngay');
1,3,5,7,8,10,12:write('Co 31 ngay');
4,6,9,11:write('Co 30 ngay');
end
end;
readln;
end.
đây nha bạn là năm nhuận năm 2020
tháng 2 có 29 ngày
1 3 5 7 8 10 12 có 31 ngày
4 6 9 11 có 30 ngày
Hãy giúp mọi người biết câu trả lời này thế nào?
275
181
mk ở Đà NẴng ko nhờ bạn giúp đc
275
181
nó rành lắm
275
181
mà h bị ba mẹ ko cho ra đường
ai rành bạn?
275
181
bạn của mk trên lớp á Bff
275
181
nhà nó cách nhà mk 500m
thì liên quan gì mình?
275
181
uhm
Bảng tin