Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
For i:=1 to 10 do writeln('A'); Đúng
Var x; array[5...10]of char; Sai
Sửa lại: var x:array[5..10]of char;
a) thiếu dấu ; ở cuối
sửa: for i:=1 to 10 do writeln ('A');
b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu
sửa: var X: array [5..10] of char;
b) thiếu dấu ; ở cuối câu lệnh
sửa: X:=10; while X=10 do X:=X+5;
d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên
sửa: for i:=1 to 10 do writeln('A');
A/ Sai.
Sửa: Var x:array[10..13] of integer;
B/ Sai.
Sửa: S:= 0; n:= 0; while S < 50 do
begin n:= n + 1; S:= S + n; end;
C/ Sai.
Sửa: for i:= 1 to 10 do writeln('A');
D/ Sai.
Sửa x: integer; begin for x:= 1 to 10 do writeln('A'); end.
a, sai vì dấu "," phải được thay bằng ".."
b, c, sai vì chỉ số đầu và cuối đều phải kiểu nguyên
d, sai vì chỉ số đầu phải nhỏ hơn chỉ số cuối
e, đúng
a: Bỏ chữ then
b: Thiếu dấu ngoặc và dấu chấm phẩy sau cùng
c: Bỏ dấu ; trước chữ else
Sửa lại như vầy:
a) a:=5;
While a < 10 do
a:=a + 1;
b) for i:=1 to 10 do write('ABC');
c) If x > 5 then x:=x + 1
Else x:=x - 1;
a) Var X : Array [1;50] of integer; (sai cách khai báo mảng)
-> Var X : Array [1..50] of integer;
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)
-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)
-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)
->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)
-> While x=10 do x:=x+5;