TH1: dùng for
program tinhtong;
uses crt;
var s,n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=11 to n do {như thế sẽ không cần kiểm tra điều kiện i>10 và vòng lặp sẽ nhanh hơn}
if i<20 then s:=s+i;
write('Tong cac so tu 1 den ',n,' nhung lon hon 10 va be hon 20 la: ',s);
readln
end.
TH2: dùng while
program tinhtong;
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0; i:=11;
while (i<=n) and (i<20) do
s:=s+i;
{như thế sẽ nhanh hơn vì đã cho sẵn i>10 và nếu n lon hon 20 thì chỉ chạy tới 19 là dừng}
write('Tong cac so tu 1 den ',n,' nhung lon hon 10 va be hon 20 la: ',s);
readln
end.
