Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

Sử dụng vòng lặp while...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  i := 1;
  sum := 0;
  while i <= 20 do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

Sử dụng vòng lặp for...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 20 do
    sum := sum + i;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=100 to 1000 do 

 s:=s+i;

writeln(s:0:0);

readln;

end.

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

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

write(t);

readln

end.

Tham khảo theo link nhé bạn: https://hoc24.vn/hoi-dap/tim-kiem?id=603125&q=t%C3%ADnh%20t%E1%BB%95ng%20c%C3%A1c%20s%E1%BB%91%20t%E1%BB%B1%20nhi%C3%AAn%20t%E1%BB%AB%20100%20%C4%91%E1%BA%BFn%201000%20%28v%C3%B2ng%20l%E1%BA%B7p%20v%E1%BB%9Bi%20s%E1%BB%91%20l%E1%BA%B7p%20ch%C6%B0a%20bi%E1%BA%BFt%29

Program Tinh_tong ; 

Uses Crt;

Var i ,S: integer ; 

Begin

S: = 0 i;=0 ;

While  < 51 do begin 

                                       i : = i + 1 ;  

                                       S: = S + i ;

                                   end ;

 Write ('Tong la',S);

End. 

while..do

Program HOC24;

var i: byte;

t: integer;

begin

i:=1;

while i<=n do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

For..do

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

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

write('Ket qua la: ',t);

readln

end.

program TinhTong50SoTuNhienDauTien;
var i, t: integer;
begin
  t := 0;

  for i := 1 to 50 do
  begin
    t:= t+ i;
  end;

  writeln('Tong cua 50 so tu nhien dau tien la: ', t);

readln;
end.