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.
1:
a) Sai
b) Sai
c) đúng
d) sai
2:
câu lệnh lặp 6 lần
giá trị của s là 12
1.C
2.A
4.A
5.A
6.D
7.C
8.A
III.
Program HOC24;
var n,d: integer;
begin
write('Nhap N: '); readln(n);
if n mod 2=1 then
begin
begin
n:=n+1;
write(n,' ');
end;
d:=1;
while d<20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end else
begin
d:=1;
while d<=20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end;
readln
end.
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');
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;
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')
Chọn B