Bạn có thể tham khảo:
Viết chương trình lập từ bàn phim 2 số nguyên dương M,N (M < N ) tính và đưa ra màn hình tổng số có 2 chữ số chia hết cho 3 hoặc chia hết cho 2 trong phạm vi từ M đến N
Lời giải:
uses crt; var m,n,i,t,t1:integer; begin clrscr; repeat write('m='); readln(m); write('n='); readln(n); if m>=n then writeln('ban da nhap sai, yeu cau ban nhap lai'); until m<n; t:=0; t1:=0; for i:=m to n do begin if (i>=10) and (i mod 3=0) then t:=t+i; if (i>=10) and (i mod 2=0) then t1:=t1+i; end; writeln('tong cac so co 2 chu so chia het cho 3 trong khoang tu ',m,' toi ',n,' la: ',t); writeln('tong cac so co 2 chu so chia het cho 2 trong khoang tu ',m,' toi ',n,' la: ',t1); readln; end.