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 2.
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap so ban lam bai thi hoc ki tin : '); readln(n);
for i:=1 to n do
begin
write('Nhap diem kiem tra hoc ki Tin cua ban thu ',i,' :'); readln(a[i]);
end;
writeln(n);
for i:=1 to n do write(a[i],' ');
readln
end.
Câu 1.
* Cú pháp : while <điều kiện> do <câu lệnh>;
* Hoạt động :
- Bước 1: Kiểm tra điều kiện lặp:
+ Nếu điều kiện lặp sai thì thoát khỏi vòng lặp, chuyển sang lệnh tiếp theo.
+ Nếu điều kiện lặp đúng thì chuyển sang bước 2.
- Bước 2: Thực hiện khối các lệnh lặp.
- Bước 3: Quay lại bước 1.
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;
I Trắc Nghiệm
1.c.
2. c.
3.a.
4.d.
5. c.
6.a.
7.a.
8.b.
II Tự luận
in ra S= 12
Chúc bạn học tốt