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.
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
a: Không vì giá trị đầu lớn hơn giá trị cuối
b: Không vì giá trị đầu và giá trị cuối là số thập phân
c: Không vì điều kiện trong while là phép gán
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;
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;
Hãy cho bt đâu là lệnh lặp for...do để in chữ O
A for i:=1.5 to 10.5 do writeln('o');
B for i:=1 to 10 do writeln('O');
C for i:=100 to 1 do writeln('o')
D for i:=1 to 10 do; writeln('o')
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
a: Sai
Sửa lại: For i:=1 to 5 do writeln('A');
b: Sai
For i:=1 to 5 do writeln('A');
c: Sai
x:=5;
while x>=5 do
x:=x+5;
d: var x:array[1..10]of integer;
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) sai:
sửa: for i:=1 to 10 do write('a');
b) Đúng
c) Đúng
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng