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.

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 tong_100_so_tu_nhien;

uses crt;

var i, S: integer;

begin

      S := 0;

      for i := 1 to 100 do

            S := S + i;

      writeln('Tong cua 100 so tu nhien dau tien la ', S);

      readln;

end.

Var i,s:integer;

Begin

i:=1;

s:=0;

While i<=100 do

Begin

s:=s+i;

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

Số vòng lặp của bài toán được tính = giá trị cuối – giá trị đầu + 1 = 100 – 1 + 1 =100 vòng.

   Đáp án: B

Chương trình bằng vòng lặp for do

program tong100sotunhien;

var

     i, s: integer;

begin

     s := 0;

     for i := 1 to 100 do

     begin

          s := s + i;

     end;

     writeln('Tong cua 100 so tu nhien dau tien la: ', s);

     readln;

end.

Chương trình bằng vòng lặp while do

program tong100sotunhien;

var

     i, s: integer;

begin

     s := 0;

     i := 1;

     while i <= 100 do

     begin

          s := s + i;

          i := i + 1;

     end;

     writeln('Tong cua 100 so tu nhien dau tien la: ', s);

     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ỉ?

*Câu lệnh lặp số lần biết trước

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

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

writeln(t);

readln;

end.

*Câu lệnh lặp với số lần chưa biết trước:

uses crt;

var i,t:integer;

begin

clrscr;

i:=1; t:=0;

while i<=100 do

begin

t:=t+i;

i:=i+2;

end;

writeln(t);

readln;

end.