Cách 1 (cách thông thường):
uses crt;
var i:word;
sum:longint;
begin
clrscr;
for i:=1 to 100 do inc(sum,i);
write(sum);
readln;
end.
Cách 2 (công thức tính tổng trong toán):
Công thức:
Số số hạng = (Số cuối - số đầu) ÷ khoảng cách + 1
Tổng = ((Số đầu + số cuối) * số số hạng) ÷ 2
uses crt;
var i:word;
sum:real;
begin
clrscr;
sum:=((1+100)*100)/2;
write(sum:0:0);
readln;
end.
