a/

Biến j ban đầu được gán giá trị là 2.

Vòng lặp thực hiện 5 lần => j = 2+5= 7

Sau mỗi lần lặp giá trị biến j tăng lên lần lượt thành dãy: 3,4,5,6,7

k = 3+4+5+6+7 = 25

b/ Biến j ban đầu được gán giá trị bằng 2

Vòng lặp chạy từ 1 đến 5 trong đó biến đếm i nhận các giá trị chẵn là 2 4

=> Biến j tăng lên 1 đơn vị 2 lần => j = 2 + 1 +1 = 4

Gía trị cuối của j là 4. => k = 3 + 4 = 7

c/

Biến i ban đầu được gán bằng 0, vòng lặp thực hiện khi i<=6 => i = 7 (vì khi giá trị 6 vẫn thõa mãn ĐK <=6 nên câu lệnh i=i+1 vẫn được thực hiện 1 lần nữa)

j được gán giá trị bằng 2 => j = 2 + i = 2 + 7 = 9

Biến j từ 3 tăng lên 9 có dãy: 3,4,5,6,7,8,9 và ban đầu giá trị biến k được gán bằng 3 => k = 3 + 3 +4+5+6+7+8+9 = 45 . Dãy số không bằng đầu từ 2, vì câu lệnh gán của j nằm trên k nên j được thực hiện trước, và khi tính tổng k thì j đã tăng lên 1 đơn vị 2+1 = 3

a. k=23, j=7

b. k=8, j=4

c. k=20, j=8

Số lần lặp: 3-(-5)+1 = 9 lần lặp

Công thức : Số lần lặp của vòng lặp for..do = <giá trị cuối> - <giá trị đầu> + 1

Số lần lặp sẽ là 9, tương ứng với khoảng giá trị của biến "i" từ -5 đến 3 (bao gồm cả 2 đầu). Mỗi lần lặp lại, giá trị của biến "k" sẽ được tăng lên 2 đơn vị (k:=k+2).

thế bạn tăng hạng kiểu gì ?

tăng hạng là sao chứ tui chưa hiểu lắm

THAM KHẢO

Cú pháp:

for < biến đếm >:= < giá trị đầu > to < giá trị cuối > do

< câu lệnh >;

Trong đó:

FOR, TO, DO: là từ khóa.

Biến đếm: thuộc kiểu dữ liệu số nguyên.

Giá trị đầu, giá trị cuối: là giá trị nguyên.

Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.

Ý nghĩa:

Khi thực hiện, biến đếm sẽ nhận giá trị là giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì dừng lại.

uses crt;

var a:array[1..100]of integer;

n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac phan tu chan la: ');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

mn giúp em với ạ uhuhu

Var i,d,so:integer;

Begin

For i:=1 to 10 do

Begin

Write('so thu ',i,' = ');readln(so);

If so mod 5 = 0 then d:=d+1;

End;

Write('Co ',d,' so chia het cho 5');

Readln;

End.

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

Thôi tự làm đi e, tự túc là hạnh phúc đó =))