uses crt;
var a,b:integer;
bo:boolean;
begin
write('Nhap nam :');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.
Nhãn:
Bài tập Pascal,
Bài tập sgk,
Pascal cơ bản
Previous Article
cam on nhieu ve ngung bai tap va bai giai de hieu
lúc 20:52 16 tháng 4, 2013
Một tháng có 30 hoặc 31 thế kỉ ( ta là THÁNH ĐỊT LỒN :)))
lúc 20:43 1 tháng 4, 2015
có code theo kiểu mảng k ad
lúc 09:39 6 tháng 10, 2015
Ngắn hơn và hay hơn.
uses crt;
var ng,m,y:integer;
begin
repeat
clrscr;
write('Nhap thang: ');readln(m);
until (m>0) and (m<13);
write('Nhap nam: ');readln(y);
case m of
4,6,9,11:ng:=30;
2:if (y mod 4<>0) or ((y mod 100=0) and (y mod 400<>0)) then ng:=28 else ng:=29;
else ng:=31;
end;
write('Thang ',m,' nam ',y,' co ',ng,' ngay');
readln;
end.
lúc 19:11 21 tháng 7, 2017
Hăm hỉu seo lun :)) Đọc xg chả hỉu rì :'( Nhưn mòa dù seo cũng cảm mơn ad và bạn abs rì rì đóa =))
lúc 20:16 20 tháng 10, 2020
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa dell hiểu mẹ j ngu tin rồi
lúc 18:39 7 tháng 7, 2022
Đăng nhận xét