A. Trắc nghiệm
Câu 1: Tìm giá trị của biến S sau đoạn lệnh sau:
S:=1;
For i:=1 to 6 do S:=S+1;
A. 5 B. 6 C. 7
Câu 2: Tìm giá trị của biến S sau đoạn lệnh sau:
S:=0;
For i:=1 to 6 do S:=S+i;
A.15 B. 21 C. 28
Câu 3: Đoạn lệnh sau tương đương với câu lệnh nào sau đây?
S:=0;
For i:=1 to 6 do
If i mod 2=1 then S:=S+i;
A. S:=1+3+5; B. S:=2+4+6; C. S:=1+2+3+4+5+6;
B. Tự luận:
Câu 4:
Viết chương trình in ra màn hình tích n số tự nhiên đầu tiên, nghĩa là tính:
P=1x2x3x…n, với n là số nhập từ bàn phím. (Đây là chương trình tính giai thừa).
Câu 5*: Viết chương trình tính giá trị biểu thức A của bài 3 trong SGK trang 59.
* mình cần gấp, bn nào làm đc câu nào thì cứ làm , mk tick hết
A: Trắc Nghiệm
Câu 1: C
Câu 2: B
Câu 3: A
B: Tự Luận
Câu 4:
uses crt;
var n,i:integer;
p:longint;
begin
clrscr;
write('nhap n='); readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
writeln(n,'!=',p);
readln;
end.
Câu 5:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+1/(i*(i+2));
writeln('A=',a:4:2);
readln;
end.
