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.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.
Câu 21: Bạn Ngọc muốn in ra màn hình 5 chữ B và 5 chữ C trên màn hình bằng đoạn chương trình sau: For i:=1 to 5 do Writeln(‘B’); writeln(‘C’);
Theo em bạn Ngọc viết như thế nào
A. Đúng rồi
B. Phải đưa Writeln(‘B’); writeln(‘C’) vào trong cặp từ khóa Begin và End;
C. Phải đổi Writeln thành Write.
D. Phải đặt Writeln(‘B’); writeln(‘C’); trên hai dòng riêng biệt.
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;
Đáp án C