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 t

0 bình luận về “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 t”

1. 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.

   Bình luận

2. 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.

   Bình luận