Question

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

Answer 1

quá dễ

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.