* Chương trình tính tổng các số chẵn và tổng các số lẻ trong khoảng a và b :

uses crt;

var a, b, i, s1, s2 : longint;

begin

clrscr;

write('nhap so nguyen a va b : ');readln(a, b);

s1 := 0; s2 := 0;

for i := a to b do 

if i mod 2 = 0 then s1 := s1 + i 

else s2 := s2 + i;

writeln('tong so chan : ', s1);

writeln('tong so le : ', s2);

readln

end.

* Chương trình tính : Sn= 4+8+12+.....+4n

uses crt;

var i, n, S : longint;

begin

clrscr;

write('nhap so n : ');readln(n);

s := 0;

i := 1;

while i <= n do 

begin

s := s + i * 4;

i := i + 1;

end;

writeln('S = ', s);

readln

end.

var a,b,s,s1,i:longint;
begin
        read(a,b);
        s:=0;
        s1:=0;
        if (a div 4) *4 < a then a:=a div 4+1 else a:= a div 4;
        b:= b div 4;
        for i := a to b do
        begin
                if (i*4) mod 2 = 0 then inc(s,(i*4));
                if (i*4) mod 2 <> 0 then inc(s1,(i*4));
        end;
        writeln(s, ' ',s1);
end.

_ Ý tưởng bài này như sau ta để ý muốn sum của dãy này chia hết cho 4 thì có nghĩa các số hạng bên trong chỉ nhận các số chia cho 4 nên mình lấy khoảng từ a -> b xem số nào chia cho 4.

_ Cách tìm: nếu muốn tìm bạn chỉ cần tìm số gần a và b nhất chia hết nó cho 4 bạn sẽ ra được số đó chia cho 4 ( như trên đề bài nhận xét đó là 4n) điều này có lợi thế làm giảm limit bài và dễ xử lý không cần code dài dòng.

@Hômnaytôibịrob