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: D
Câu 2: A hoặc C
Câu 3: C
Câu 4: C
Câu 5: Sai hết
Câu lệnh mà bạn
Chừng nào mà đề bài là Chương trình sau thiếu cái gì thì mới thiếu chưa khai báo biến
a) Sai vì có dấu ; giữa số 10 và chữ do
b) Sai vì thiếu chữ down
c) Đúng
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.
I: Trắc nghiệm
Câu 1: C
Câu 2: A
Câu 3: C
Câu 4: C
Câu 5: C
Câu 6: D
Câu 7: B
Câu 8: D
Câu 9: C
Câu 10: B
Câu 11: D
Câu 12: B
Câu 13: B
Câu 14: A
Câu 15: B
Câu 16: B
Câu 17: Không rõ câu hỏi
Câu 18: B
Câu 19: B
Câu 20: B
Câu 21: A
Câu 22: C
Câu 23: B
Câu 24: A
II: Bài tập:
uses crt;
var i,s,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 3=0 then s:=s+i;
writeln('tong cac so tu nhien chia het cho 3 khong vuot qua ',n,' la: ',s);
readln;
end.
Phần II: Bài tập
Câu 1:
Sau khi thực hiện chương trình, chương trình sẽ báo lỗi thiếu begin
Câu 2:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
D mới đúng nha ^^