Câu 1 :

a) 

- Cú pháp : For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

- Hoạt động :

+ Ban đầu biến đếm sẽ nhận giá trị bằng giá trị đầu

+ Sau mỗi vòng lặp biến đếm tự động tăng lên 1 đơn vị

+ Câu lệnh sẽ được thực hiện qua mỗi vòng lặp

+ Giá trị biến đếm sẽ tăng cho tới khi bằng giá trị cuối

b)

program tinh;

uses crt;

var i, s : integer;

begin

clrscr;

s := 0;

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

write('Tong = ', s);

readln

end.

Câu 2 :

a) 

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

- Trong đó :

+ Điều kiện thường là 1 phép so sánh

+ Câu lệnh có thể là 1 câu lệnh đơn hoặc câu lệnh ghép

b)

program tinh;

uses crt;

var i, s1, s2 : integer;

begin

clrscr;

i := 1; s1 := 0; s2 := 0;

while i <= 20 do

    begin

        if i mod 2 = 0 then s1 := s1 + i

        else s2 := s2 + i;

        i := i + 1;

    end;

writeln('Tong so chan : ', s1);

writeln('Tong so le : ', s2);

readln

end.

câu 1:

a) Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

  Hoạt động: Biến đếm sẽ nhận dữ liệu xuất phát từ giá trị đầu và tăng lên 1 sau mỗi lần lặp và dừng khi bằng giá trị cuối

b)

uses crt;

var i,s: integer;

begin

clrscr;

s:=0;

for i:=1 to n do s:=s+i;

writeln ('tong la: ',s);

readln;

end.

Câu 2:

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

  Hoạt động: khi điều kiện đúng thì câu lệnh sẽ được thực hiện và quay lại kiểm tra điều kiện, lặp đi lặp lại đến khi điều kiện sai thì dừng

b)

uses crt;

var i,s1,s2: integer;

begin

clrscr;

s1:=0;

s2:=0;

i:=1;

while i<=20 do

begin

if i mod 2=1 then s1:=s1+i else s2:=s2+i;

i:=i+1;

end;

writeln ('Tong le: ',s1);

writeln ('Tong chan: ',s2);

readln;

end.