- Cú pháp:

for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Ctrinh:

uses crt;
var i,s:integer;
begin
    clrscr;
    s:=0;
    for i:=1 to 100 do s:=s+i;
    write('A=',s);
    readln;
end.

- Cú pháp: while <điều kiện> do <câu lệnh>;

=> C

Cú pháp:

for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Vd: in các số từ 1 đến 10 với biến đếm là i

for i:=1 to 10 do writeln(i);

Chương trình:

program tinh_tong;

uses crt;

var i,a:integer;

begin

      clrscr;

      a:=0; i:=1;

      while i<=100 do

            begin

                  a:=a+i;

                  i:=i+1;

            end;

      write('A= ',a);

      readln;

end.

Đáp án: C