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')
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) Không hợp lệ vì lệnh gán phải kí hiệu là := chứ không phải =
d) Không hợp lệ vì sau từ khóa do không được phép có dấu chấm phấy ;
e) Không hợp lệ, vì không x phải khai báo số nguyên !
a) ko. vì giá trị đầu lớn hơn giá trị cuối
b) ko. vì giá trị đầu và giá trị cuối ko phải là giá trị nguyên
c) ko. vì sau biến đếm i thiếu dấu (:)
d) ko. vì sau DO có dấu (;)
e) ko. vì x ko khai báo số nguyên
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