Câu 4 a) for i=1 to 10 do wireln(‘A’); b)Var X: array [5 -..10] Of integer; c)X:=10;while X=10doX:=X+5; đ)if x>5 then a:=b; else m:=n; e) Var a:ar

0 bình luận về “Câu 4 a) for i=1 to 10 do wireln(‘A’); b)Var X: array [5 -..10] Of integer; c)X:=10;while X=10doX:=X+5; đ)if x>5 then a:=b; else m:=n; e) Var a:ar”

1. a, For i:=1 to 10 do writeln(‘A’);

   b, Var X: array[5..10] of integer;

   c, X:=10; while X:=10 do X=X+5;

   d, if x>5 then a:=b; else m:=n; Đúng

   e, Var a: array [1..10,5] of integer

       Câu khai báo biến mảng là ở chỗ array thì dùng dấu [ chứ không phải dấu (

   f, Phải có begin ở đoạn đầu thì mới có end, đây là câu lệnh ghép nhỏ nha:

         Begin a:=0;s:=0; While a<10 do s:=s+a; a:=a+1; end.

   Bình luận

2. a) sai chỗ: i=1, wireln

   Sửa: For i:=1 to 10 do writeln (‘A’);

   b) sai chỗ: array [5……10]

   Sửa: Var x: array [5..10] of integer;

   c) đúng

   d) sai chỗ: a:=b; else

   Sửa: if x>5 then a:=b else m:=n;

   e) sai chỗ: array(1…10,5) of internet???

   Sửa: Var A: array[1..10] of integer;

   f) sai chỗ: thiếu begin 

   Sửa: a:=0; s:=0;

           While a <10 do begin s:=s+a; a:=a+1; end;

          

   Bình luận