* 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.

Viết một chuơng trình tính tổng các số chẵn, lẻ trong khoảng a,b:

uses crt;
var a,b,sc,sl,i:integer;
begin 
clrscr;
   write('Nhap a,b: ');readln(a,b);
   for i:=a to b do 
      if i mod 2=0 then inc(sc,i) else inc(sl,i);
   writeln('Tong cac so chan: ',sc);
   writeln('Tong ca so le: ',sl);
readln
end.

Sn= 4+8+12+.....+4n (n là số nguyên)

uses crt;
var i,n,sn:integer;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      inc(sn,i*4);
   writeln('Sn=',sn);
readln
end.