Bài 1

program tong100so;

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

 s:=s+i;

write('S= ',s);

readln

end.

Bài 2

program tinhtong;

var s:real;

      n:integer;

begin

clrscr;

s:=0;

n:=1;

while 1/n>0.0001 do

 begin

  s:=s+1/n;

  inc(n);

 end;

write('S= ',s:2:2);

readln

end.

Bài 1:

uses crt;
var s,i:integer;
BEGIN
        clrscr;
        s:=0;
        for i:=1 to 100 do
        s:=s+i;
        write('Tong S la:',s);
        readln
END.

{Có thể làm cách khác là s:=((100+1)*100))/2 trong đó: s thuộc kiểu real, 100 là số đầu,1 là số cuối, 100 là số lượng số hạng trong tổng.

Bài 2:

uses crt;
var i:integer;
    s:real;
BEGIN
        clrscr;
        i:=1; s:=0;
        while 1/i>0.0001 do
        begin
                s:=s+1/i;
                inc(i);
        end;
        write('Tong S la:',s:0:3);
        readln
END.