Giải bài 4.

Bài 4: Đọc ngày tháng năm, sau đó viết ra màn hình đó là ngày thứ mấy trong tuần.
C1:
PROGRAM ngaythangnam;
USES crt;
VAR haiso,ngay, thang, nam, thu,b,c,i: INTEGER; a:LONGINT;
BEGIN
clrscr;
write( 'Nhap ngay thang nam: '); readln (ngay,thang,nam);
a:=trunc((nam-1)*365.25);
haiso:=nam MOD 100;
FOR i:=1 TO thang-1 DO
CASE i OF
1,3,5,7,8,10,12: b:=b+31;
4,6,9,11: b:=b+30;
2: IF (haiso MOD 4 =0) THEN
IF haiso<>0 THEN b:=b+29
ELSE BEGIN
haiso:=nam DIV 100;
IF (haiso MOD 4=0) THEN b:=b+29;
END;
ELSE b:=b+28;
END;
c:= ngay-1;
thu:= (a+b+c) MOD 7;
CASE thu OF
0: writeln ('Chu nhat');
1: writeln ('Thu hai');
2: writeln ('Thu ba');
3: writeln ('Thu tu');
4: writeln ('Thu nam');
5: writeln ('Thu sau');
6: writeln ('Thu bay');
END;
readln;
END.

C2:
PROGRAM tdt;
USES crt;
VAR
Thu,ngay,thang:BYTE;
nam:INTEGER;
BEGIN
write('Doc ngay thang nam: ');
readln(ngay,thang,nam);
{Nam co the cho 2 so cuoi hoac du 4 so}
nam:=1900+(nam MOD 1900);
IF thang < 3 THEN
BEGIN
thang:=thang+12;
nam:=nam-1;
END;
thu:=abs(ngay+2*thang+3*(thang+1) DIV 5 + nam + nam DIV 4) MOD 7;
CASE thu OF
0: writeln('Chu nhat');
1: writeln('Thu hai');
2: writeln('Thu ba');
3: writeln('Thu tu');
4: writeln('Thu nam');
5: writeln('Thu sau');
6: writeln('Thu bay');
END;
readln
END.
Có chi góp ý nhé.