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 16: (0,25đ) Trong các cách viết câu lệnh lặp với số lần định trước như sau, cách nào đúng?
A. For <biến đếm> := <giá trị đầu> to <giá trị cuối> ;do <câu lệnh>
-> Sai vì trước do có dấu ;
B. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
C. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>
-> sai vì kết thúc câu lệnh không có dấu ;
D. For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
-> sai vì sau <biến đếm> không có dấu :
Câu 15:
Trong câu lệnh lặp for i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A.2 lần
B.Không lần nào
C.10 lần
D.1 lần
Cảm ơn ạ !
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.