- nganweed đã viết:
-
- Code:
-
program Songay_trongmotthang;
uses crt;
var songay, thang: byte;
nam:integer;
begin
clscr;
write('Ban kiem tra thang may (dang so): ');
readln(thang);
case thang of
4,6,9,11: songay:=30;
begin
write('thang nay thuoc nam nao(4 chu so):');
readln(nam);
If nam mod 4=0 then songay:=29;
Else songay:=28;
end
Else
songay:=31;
End;
If thang=2 then
Writeln('thang', thang,'/', nam, 'co', songay,'ngay.');
else writeln('thang', thang,'co', songay,'ngay.');
readln
end.
viết ct kiểu gì thế....hok biết sử dụng cấu trúc àk!
lần sau thụt dòng cho nó rõ ràng, để còn biết cái nào của cái nào, viết như zì tới lúc sai sửa có mà ......ói máu.
...
case thang of
1,3,5,7,8,10,12 : ngay:=31;
4,6,9,11 : ngay:=30;
else
if (((nam mod 4 =0) and (nam mod 100 <>0)) or (nam mod 400 = 0)) then
ngay:=29
else
ngay:=28;
end;
.....rùi xuất ra.....
Trang Chính 
