cac ban viet chuong trinh ho minh bai nay voi

[thanhtungbooking]

nhập ngày tháng năm in ra thứ VD: 20/10/2011 thi in ra là thư 5

[thambt029]

trả lời

xem thử bài này nhé

program lich;
uses crt;
var ngay,thang,nam,i,j,thu:integer;
    n:longint;
BEGIN
clrscr;
write('nhap ngay  :');readln(ngay);
write('nhap thang :');readln(thang);
write('nhap nam   :');readln(nam);
writeln;
write('ngay ',ngay,' thang ',thang,' nam ',nam,' la :');
n:=n+ngay-1;
for i:=1 to thang-1 do
    if (nam mod 4 =0)and(i=2) then n:=n+29 else
        if (nam mod 4 <>0)and(i=2) then n:=n+28 else
            if i in[1,3,5,7,8,10,12] then n:=n+31 else
               n:=n+30;
for i:=1 to nam-1 do
    if i mod 4 = 0 then n:=n+366 else n:=n+365;
if n mod 7=0 then write('chu nhat') else
begin
thu:=n mod 7+1 ;
write('thu ',thu);
end;
readln;
END.

[0964059802]

Mình cảm ơn bạn rất nhiều

Mình cảm ơn bạn rất nhiều bài chạy rất tôt

[developers]

notice

bài này mình wên điều kiện ngày tháng mấy bạn thêm nhen [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]