Công thức: for i:=1 to n do s:=s+i;

VTC:

program phuongt;
uses crt;
  var n, i, s: integer;
begin
       clrscr;
       write('Nhap n = '); readln(n);
       s:=0;
       for i:=1 to n do s:=s+i;
       write('Tong = ', s);
       readln
end.

*Tổng số nguyên chẵn:

- Công thức: for i:=1 to n do if i mod 2=0 then t:=t+i;

- Chương trình:

program tong_chan;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write('Nhap n: ');   readln(n);

       t:=0;

       for i:=1 to n do 

              if i mod 2=0 then t:=t+i;

       write('Tong cac so chan tu 1 den n la: ',t);

       readln;

end.

*Tổng số nguyên:

- Công thức: for i:=1 to n do t:=t+i;

- Chương trình:

program tong_so;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write('Nhap n: ');   readln(n);

       t:=0;

       for i:=1 to n do t:=t+i;

       write('Tong cac so nguyen tu 1 den n la: ',t);

       readln;

end.