Cho k := 9; For i := 0 to 6 do k := k + 3; a). Hỏi số lần lặp là bao nhiêu? Sau khi thực hiện lệnh For, biến k có giá trị mấy? b). Viết thành chương trình hoàn chỉnh Các bạn trả lời giúp mình nha

2 câu trả lời

a) Số lần lặp là 7 

Biến k=30

b)

uses crt;
var k,i:byte;
begin
clrscr;
k:= 9;
For i := 0 to 6 do k := k + 3;
write(k);
readln;
end.

a) Số lần lặp là 7 

Biến k=30

b)

uses crt;
var k,i:byte;
begin
clrscr;
k:= 9;
For i := 0 to 6 do k := k + 3;
write(k);
readln;
end.