Viết chương trình nhập vào 2 số M,N (M<N). Đếm số lượng số chia hết cho 3 theo câu lệnh for-do và while-do.

FOR .. DO:

Program NhatNgu;
Uses crt;
Var m,n,i,d: longint;

Begin
        Clrscr;
        Write('Nhap m, n: '); Readln(m,n);
        d:=0;
        For i:=m to n do
                If i mod 3 = 0 then inc(d);
        Write('D = ',d);
        Readln
End.

WHILE .. DO

Program NhatNgu;
Uses crt;
Var m,n,i,d: longint;

Begin
        Clrscr;
        Write('Nhap m, n: '); Readln(m,n);
        d:=0; i:=m;
        While i<=n do
        Begin
                If i mod 3 = 0 then inc(d);
                inc(i);
        End;
        Write('D = ',d);
        Readln
End.