Phần I. Trắc nghiệm. (5 điểm)
1. Nhặt thóc ra khỏi gạo cho đến khi trong gạo không còn lẫn thóc là hoạt động:
a. Lặp 10 lần c. Lặp vô số lần (lặp vô hạn)
b. Lặp với số lần chưa biết trước d. Lặp với số lần biết trước
2. Trong câu lệnh lặp For i:=1 to 10 do begin.... end bao nhiêu vòng lặp được thực hiện?
a. Không lần nào b. 10 lần c. 1 lần d. 2 lần
3. Điều kiện kết thúc vòng lặp For... do của Pascal là:
a. Biến đếm lớn hơn giá trị cuối c. Giá trị đầu bằng giá trị cuối
b. Biến đếm lớn hơn hoặc bằng giá trị cuối d. Giá trị đầu lớn hơn giá trị cuối
4. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. For i:=1 to 10; do x=x+1; c. For i:=1 to 10 do x:=x+1;
b. For i:=10 to 1 do x:=x+1; d. For i:=1.5 to 10 do x:=x+1;
5. Trong lệnh lặp For... do của Pascal, sau từ khóa “do” nếu có từ 2 câu lệnh trở lên (câu lệnh
ghép) thì câu lệnh ghép đó phải đặt trong cặp từ khóa nào sau đây?
a. Begin.....readln; b. Begin.....and;
c. End.....Begin d. Begin.....end;
6. Câu lệnh sau đây cho kết quả như thế nào?
For i:=1 to 10 do Writeln(‘A’);
a. In dãy số từ 10 đến 1 ra màn hình c. In dãy số từ 1 đến 10 ra màn hình
b. In 20 ký tự A ra màn hình d. In 10 ký tự A ra màn hình
7. Sau khi thực hiện đoạn chương trình sau, giá trị của biến T bằng bao nhiêu?

i := 0; T := 0;
While i < 3 do
begin T := T + 1; i := i + 1; end;

a. T = 2 b. T = 3 c. T = 4 d. T = 5
8. Cú pháp của câu lệnh lặp với số lần chưa biết trước trong Pascal:
a. While <câu lệnh> do <điều kiện>; c. While <điều kiện> do <câu lệnh>;
b. While <giá trị cuối > do <giá trị đầu>; d. While <giá trị đầu> do <giá trị cuối>;
9. Trong lệnh lặp While... do của Pascal, nếu điều kiện đúng thì:
a. Tiếp tục vòng lặp c. Vòng lặp vô tận
b. Lặp 10 lần d. Thoát khỏi vòng lặp
10. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. x:=1; while x:= 10 do x:=x+5; c. x =1 while x>10 do x:=x+5;
b. x:=1; while x <10 do x:=x+5; d. x:=10; while x<10 do x=x+5;
Phần II. Bài tập. (5 điểm)
Câu 1: Cho đoạn chương trình sau: (2đ)

m:=2; k:=3;
For i:= 0 to 4 do begin

m:=m+1;
k :=k+m;
end;

Sau khi thực hiện đoạn chương trình trên giá trị của các biến m, k bằng bao nhiêu?
1. Câu 2: (3đ)Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N

(n là số nguyên được nhập từ bàn phím)

Làm giúp mình trước ngày 29/04/2020 nha !

Đề cương (tt)
Câu4: Viết cú pháp tổng quát câu lệnh While...do?Cách thực hiện câu lệnh như thế nào?Cho ví dụ?
Câu5: Thực hiện tính toán và cho biết kết quả S cuối cùng là bao nhiêu:
a)S:=0;n:=0
while S<=3 do begin n:n+1;S:= S+n end;
b) a:=0; b:=0; S:=0
while S<4 do S:=a+b
c)S:=1,a:=2,n:=0
while S<=3 do begin n:n+1,S:=n-a end;
Câu 6) Dữ liệu kiểu mảng là gì?Viết cú pháp tổng quát khai báo biến mảng và cho ví dụ?Câu khai báo biến mảng không chạy khi nào?

I. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện.
Câu 3. Cho đoạn chương trình: J:= 0;
For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 12 B. 22 C. 15 D. 42.
Câu 4: Cú pháp của câu lệnh điều kiện dạng đủ nào sau đây là đúng?
A. If <điều kiện> then <câu lệnh 1> else <câu lệnh 2> B. If <câu lệnh> then <điều kiện>
C. If <điều kiện> then <câu lệnh 1> else <câu lệnh 2> D. If &lt;điều kiện&gt; do &lt;câu lệnh&gt;;
Câu 5: Chương trình sau cho kết quả gì?
Program VD;
Var a, b: Real; x: Integer;
Begin
Readln( a,b);
If a>b then x:=a else x:=b;
Writeln(x);
End.
A.Xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập.
B.Xuất ra màn hình số lớn nhất trong hai số a, b đã nhập.
C.Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu.
D.Đảo giá trị của hai biến a, b cho nhau.
Câu 6: Hoạt động nào sau đây lặp với số lần lặp biết trước?
A. Rửa rau tới khi sạch B. Học bài cho tới khi thuộc bài
C. Gọi điện tới khi có người nghe máy D. Ngày tắm 2 lần
Câu 7: Cấu trúc câu lệnh điều kiện dạng thiếu là:
A. If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2> B. If <điều kiện> then <câu lệnh >
C. If <điều kiện> then <câu lệnh 1> <câu lệnh 2> D. If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2>
Câu 8: Ta có 2 lệnh sau:
x := 8;
IF x > 5 then x := x+1;
Giá trị của x nhận được là bao nhiêu?
A. 5 B. 7 C. 8 D. 9
Câu 9: Chọn câu lệnh Pascal hợp lệ trong các câu lệnh sau:
A. If a > b then max = a ; B. If a := b then max = b ;
C. If a = b then S := a+b ; D. If a <> b then b=a;
Câu 10: Chọn cú pháp đúng nhất về câu lệnh lặp:
A. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
B. for < biến đếm > := < giá trị cuối > to < giá trị đầu > do <câu lệnh >

C. for <biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
D. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
Câu 11: Em hiểu lệnh lặp theo nghĩa nào dưới đây?
A. Một lệnh thay cho nhiều lệnh B. Các câu lệnh được viết lặp đi lặp lại nhiều lần
C. Vì câu lệnh có tên là lệnh lặp D. Cả (A), (B), (C) đều sai
Câu 12: Khi nào thì câu lệnh For..to..do kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối B. Khi biến đếm lớn hơn giá trị cuối
C. Khi biến đếm nhỏ hơn giá trị đầu D. Khi biến đếm lớn hơn giá trị đầu

Câu 13: Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng?
A. for i:=1 to 10; do x:=x+1; B. for i:=1 to 10 do x:=x+1;
C. for i:=10 to 1 do x:=x+1; D. for i =10 to 1 do x:=x+1;
Câu 14: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải
được khai báo là kiểu dữ liệu nào?
A. Integer B. Real C. String D. Tất cả các kiểu trên đều được
Câu 15: Trong câu lệnh lặp với số lần biết trước (For – do), được thực hiện mấy lần?
A. ( < giá trị cuối > - < giá trị đầu >) lần B. Tuỳ thuộc vào bài toán mới biết được số lần
C. Khoảng 10 lần D. ( < giá trị đầu > - < giá trị cuối>) lần
Câu 16: Xác định số vòng lặp cho bài toán: tính tổng các số nguyên từ 1 đến 100
A. 1 B. 100 C. 99 D. Tất cả đều sai
Câu 17: Kết quả của &lt; điều kiện &gt; trong câu lệnh sẽ có giá trị là gì?
A. Là một số nguyên B. Là một số thực C. Đúng hoặc sai D. Là một dãy kí tự
Câu 18: Sau khi thực hiện đoạn chương trình sau:
S:=0; For i:=1 to 5 do S:=S+i; Giá trị của biến S bằng bao nhiêu?
A. 20 B. 15 C. 10 D. 0
Câu 19: Cú pháp lệnh lặp For – do dạng lùi:
A. for < biến đếm> = < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >
B. for < biến đếm> := < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >
C. for < biến đếm> = < Giá trị cuối >down < Giá trị đầu > do < câu lệnh >
D. for < biến đếm> := < Giá trị đầu >downto < Giá trị cuối > do < câu lệnh >
Câu 20: Trong lệnh lặp For – do: (chọn phương án đúng nhất)
A. Giá trị đầu phải nhỏ hơn giá trị cuối
B. Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
C. Giá trị đầu phải lớn hơn giá trị cuối D. Giá trị đầu phải bằng giá trị cuối
Câu 21: Lệnh lặp For – do được sử dụng khi:
A. Lặp với số lần biết trước B. Lặp với số lần chưa biết trước
C. Lặp với số lần có thể biết trước D. Lặp với số lần không bao giờ biết trước
Câu 22: Sau khi thực hiện đoạn chương trình sau: s:=1; for i:= 1 to 3 do s:= s*i;
Giá trị của biến s bằng bao nhiêu?
A. 10; B.5; C. 6; D. 15.
Câu 23: Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?
A. Real; B. Integer; C. String; D. Char.
Câu 24: Lệnh lặp for..to..do của Pascal trong mỗi vòng lặp, biến đếm thay đổi như thế nào?
A. Tăng thêm 1 đơn vị; B. +1 hoặc -1;
C. Giá trị bất kì; D. Một giá trị khác 0.

II: Bài tập: Tính tổng các số tự nhiên đầu tiên chia hết cho 3 không vướt quá N cho trước (N được
nhập vào từ bàn phím).

MONG NHẬN ĐƯỢC SỰ TRỢ GIÚP TỪ CÁC BẠN !!!

Hãy chọn và khoanh tròn đáp án đúng nhất trong các câu sau.
Câu 1: Trong Pascal, cú pháp câu lệnh lặp với số lần lặp chưa biết trước có dạng: A. for...do B. if...then
C. while...do D. if...then...else
Câu 2: Trong các cách khai báo biến sau đây, cách khai báo nào là hợp lệ? A. Var a: array; B. Var a= integer;
C. Var a: integer; D. Var: a: integer;
Câu 3: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ?
A. Var a: array [1..100] for integer; B. Var a: array [1.5..1.05] for integer; C. Var a: array [1,100] for integer; D. Var a: array [1.5,1.05] for integer;
Câu 4: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng? A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên. B.Chỉsốđầu<chỉsốcuối.
C. Kiểu dữ liệu có thể là Integer hoặc Real.
Câu 5: Vòng lặp While ... do kết thúc khi nào?
A. Khi một điều kiện cho trước được thỏa mãn. C. Khi tìm được Output.
D. Cả ba ý trên.
B. Khi đủ số vòng lặp.
D. Tất cả các phương án.
Câu 6: Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau: i := 5;
While i>=1 do i := i – 1;
A. 1 lần. B. 2 lần. C. 5 lần. D. 6 lần Câu 7: Khi thực hiện đoạn chương trình sau: n:=1; T:=50;
While n>20 do begin n:=n+5; T:=T - n end; Hãy cho biết giá trị của biến T bằng bao nhiêu?
A.14 B.15 C.16 D.17
Câu 8: Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để
gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? A.4 B.5 C.6 D.7
Câu 9: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên.
C. Kiểu dữ liệu có thể là integer hoặc real.
Câu 10: Cú pháp lệnh lặp với số lần chưa biết trước:
B.Chỉsốđầu  chỉsốcuối. D. Cả ba ý trên.
A. While < điều kiện > to < câu lệnh >;
B. While < điều kiện > do < câu lệnh >;
C. While < điều kiện > do ;< câu lệnh >;
D. While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;

B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:

A. tính tổng các số tự nhiên từ 1 đến 20.

B. Nhập các số nguyên cho đến khi đủ 50 số

C. Mỗi ngày tập TD 2 lần

D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng

B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.

B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC:

* ĐỀ 1:

Câu 1:

CÂU 1:
const fi='uc.inp'
fo='uc.out'
var f: text;
a,b,c : integer;
function uc(x,y): integer;
var z: integer;
begin
while y<>0 do
begin
z:=x mod y;
x:=y;
y:=z;
end;
uc:=x;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,uc(uc(a,b),c);
close(f);
end;
begin
ip;
out;
end.

Câu 2:

const fi='SN.inp'
fo='SN.out'
var
f:text;
i,n:integer;
s:real;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=0;
for i:= 1 to n do
begin
if i mod 2 <> 0 then
s:=s+(i/(i+1));
if i mod 2 = 0 then
s:=s-(i/(i+1));
end;
write(f,s:0:2);
close(f);
end;
BEGIN
ip;
out;
END.

Câu 3:

const fi='SSNT.inp'
fo='SSNT.out'
var
f:text;
n,i,max,j:integer;
s:string;
a:array[1..32000] of integer;
function nt(x:integer):boolean;
var
i:integer;
begin
nt:=false;
if x < 2 then exit;
for i:= 2 to trunc(sqrt(x)) do
if x mod i = 0 then exit;
nt:=true;
end;
function snt(x:integer):boolean;
begin
snt:=false;
if x= 0 then exit;
while nt(x) = true do
x := x div 10;
if x = 0 then snt:=true;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
max:=a[1];
readln(f,n);
for i:= 1 to n do
begin
read(f,a[i]);
if( a[i] < max ) and (nt(a[i]) = true) then
max:=a[i];
end;
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
writeln(f,max);
max:=0;
for i:= 1 to n do
begin
if snt(a[i]) = true then
begin
str(a[i],s);
if length(s) = 2 then
max:=max+a[i];
s:=''
end
else
a[i]:=-32000;
end;
writeln(f,max);
for i:= 1 to n-1 do
for j :=i+1 to n do
if a[i] > a[j] then
begin
max:=a[i];
a[i]:=a[j];
a[j]:=max;
end;
for i:= 1 to n do
if (a[i] > 0) and (a[i] <> a[i-1]) then write(f,a[i],' ');
close(f);
end;
BEGIN
ip;
out;
END.

CÂU 4:

const fi='TUOI.INP'
fo='TUOI.OUT'
var f: text;
a,b: byte;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
if (x=y*2) and (x>18) and (x-y>=18) then write(f,'CO') else write(f,x-y*2);
close(f);
end;
begin
ip;
out;
end.

const fi='CM.INP'

fo='CM.OUT'

var f: text;

a,n,b,k: integer;

a1: array[1..32000] of integer;

function nt(x: integer): boolean;

var i: integer;

begin

nt:=false;

if x<2 then exit;

for i:=2 to trunc(sqrt(x)) do if x mod i=0 then exit;

nt:=true;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,n);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for a:=1 to k do

if nt(a) then

begin

inc(d);

a1[d]:=a;

end;

for a:=1 to d do

for b:=x to d do

if a1[a]+a1[b]=k then writeln(f,a1[a],'+',a1[b]);

end;

close(f);

end;

begin

ip;

out;

end.

*ĐỀ 2 :

BÀI LÀM CỦA BẠN LÊ HOÀNG THẮNG:

//----------------------------CAU 1--------------------------------

var s,d,n,i,u:longint;
a:array[0..32001] of longint;
f:text;
function ucln(x,y:longint):longint;
begin
if y=0 then exit(x) else exit(ucln(y,x mod y));
end;
begin
assign(f,'ucln.inp');reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]); close(f);
u:=a[1];
for i:=2 to n do u:=ucln(u,a[i]);
assign(f,'ucln.out');rewrite(f);
write(f,'UCLN: ',u,' UC: ');
for i:=1 to u do if u mod i=0 then
begin
if i<>u then write(f,i,',') else write(f,i);
if i<10 then inc(d) else inc(s,i);
end;
writeln(f);
writeln(f,d); write(f,s);
close(f);
end.

//----------------------------CAU 2--------------------------------

var n,i:longint;
s:real;
f:text;
begin
assign(f,'sn.inp');reset(f);
readln(f,n); close(f);
for i:=1 to n do if odd(i) then s:=s-i/(i+1) else s:=s+i/(i+1);
assign(f,'sn.out');rewrite(f);
write(f,s:0:2);
close(f);
end.

//----------------------------CAU 3--------------------------------

var a:array[0..1000000] of boolean;
b:array[0..1000000] of longint;
i,j,k,n,d:longint;
f:text;
procedure taosang(n:longint);
var i,j:longint;
begin
for i:=2 to trunc(sqrt(n)) do if not(a[i]) then
begin
j:=i*i;
while j<=n do begin a[j]:=true; inc(j,i); end;
end;
end;
begin
assign(f,'boso.inp');reset(f);
readln(f,n); taosang(n); close(f);
assign(f,'boso.out');rewrite(f);
for i:=2 to n do if not(a[i]) then
begin
inc(d);
b[d]:=i;
end;
for i:=1 to d do
for j:=i to d do
if (n-b[i]-b[j]>=b[j]) and not(a[n-b[i]-b[j]]) then
writeln(f,b[i],' ',b[j],' ',n-b[i]-b[j]);
close(f);
end.

//----------------------------CAU 4--------------------------------

THAM KHẢO ĐỀ 1.

//----------------------------CAU 5--------------------------------

var n,i,s,t:longint;
f:text;
begin
assign(f,'u.inp');reset(f);
readln(f,n); t:=n; close(f);
assign(f,'u.out');rewrite(f);
for i:=2 to trunc(sqrt(n)) do
begin
if n mod i=0 then
begin
write(f,i,' ');
repeat n:=n div i until n mod i>0;
end;
if t mod (i*i)=0 then inc(s,i*i);
end;
writeln(f);
write(f,s+1);
close(f);
end.

*ĐỀ CHUNG:

BÀI LÀM CỦA BẠN ĐÀO XUÂN SƠN :

Câu 1:

const fi='TCS.inp'
fo='TCS.out'
var
f:text;
x:char;
tg:byte;
s:integer;
CODE:integer;
procedure ip;
begin
assign(f,fi);
reset(f);
s:=0;
while not(eof(f)) do
begin
read(f,x);
if x in ['0'..'9'] then
begin
val(x,tg,CODE);
s:=s+tg;
end;
end;
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,s);
close(f);
end;
BEGIN
ip;
out;
END.

Câu 2:

const fi='t.inp'
fo='t.out'
var
f:text;
s:string;
i:byte;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s[1]:=upcase(s[1]);
for i:= 2 to length(s) do
if s[i-1] <> #32 then
s[i]:=lowercase(s[i]) else
s[i]:=upcase(s[i]);
write(f,s);
close(f);
end;
BEGIN
ip;
out;
END.

Câu 1: Tác dụng của câu lệnh lặp trong ngôn ngữ lập trình Pascal là dùng:
A. Nhiều lệnh thay cho một lệnh. B. Một lệnh thay cho một lệnh.
C. Một lệnh thay cho nhiều lệnh. D. Nhiều lệnh thay cho nhiều lệnh.
Câu 2: Mọi ngôn ngữ lập trình đều có “cách” để chỉ thị cho máy tính thực hiện cấu trúc lặp với một câu lệnh.
Đó là:
A. Câu lệnh ghép. B. Câu lệnh đơn.
C. Câu lệnh lặp. D. Câu lệnh điều kiện.
Câu 3: Trong Pascal, câu lệnh lặp với số lần biết trước thường gặp có dạng:
A. for ... do … to … B. while ... do ...
C. do ... while … D. for ... to … do …
Câu 4:Trong câu lệnh lặp với số lần biết trước For, số lần lặp được xác định bởi công thức:
A. Số lần lặp = giá trị đầu – giá trị cuối + 1
B. Số lần lặp = giá trị cuối – giá trị đầu + 1
C. Số lần lặp = giá trị cuối – giá trị cuối
D. Số lần lặp = giá trị đầu – giá trị cuối
Câu 5: Khi thực hiện câu lệnh lặp For, ban đầu biến đếm sẽ nhận giá trị là …
A. Giá trị cuối B. Giá trị đầu
C. Giá trị cuối – 1 D. Tất cả đều sai.
Câu 6: Khi kết thúc câu lệnh lặp For, giá trị của biến đếm bằng …
A. Giá trị cuối B. Giá trị đầu C. Giá trị cuối – 1 D. Giá trị đầu + 1
Câu 7: Khi thực hiện câu lệnh lặp For, sao mỗi vòng lặp, biến đếm sẽ tự động tăng thêm …
A. 1 đơn vị B. 4 đơn vị C. 2 đơn vị D. 3 đơn vị
Câu 8: Câu lệnh ghép là câu lệnh được tạo thành từ 2 hay nhiều câu lệnh đơn giản, các câu lệnh đơn đó phải
được đặt trong hai từ khóa nào?
A. var và end B. uses và begin
C. begin và end; D. const và begin
Câu 9: Để có thể lưu trữ các số nguyên rất lớn trong phạm vi -231 đến 231-1, ta sử dụng kiểu dữ liệu nào sau
đây?
A. real B. double C. longint D. byte
Câu 10: Với câu lệnh for i:=1 to n do … , trong đó i là:
A. Biến đếm chỉ số lần lặp
B. Biến chạy từ đầu đến cuối câu lệnh lặp
C. Biến điều khiển vòng lặp

D. Tất cả đều đúng
Câu 11: Câu lệnh lặp for i:=1 to 15 do writeln(‘O’); có số lần lặp là:
A. 14 B. 15 C. 17 D. 16
Câu 12: Để tính tổng các số nguyên từ 1 đến n, ta sử dụng câu lệnh lặp nào sau đây:
A. for i:=1 to n do s:=s+1; B. for i=1 to n do s:=s+i;
C. for i:=1 to n do s:=s+i; D. for i:=1 to n do s:=s+1;
Câu 13: Trong các câu lệnh sau đây, câu lệnh nào hợp lệ?
A. for i:=100 to 1 do writeln(‘A’); B. for i =1 to 15 do writeln(‘A’);
C. for i:=1 to 100 do writeln(‘A’); D. for i:=1.5 to 10.5 do writeln(‘A’);
Câu 14: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
for i:=1 to 5 do j:=j+3;
A. 9 B. 13 C. 16 D. 15
Câu 15: Đoạn lệnh sau đây:
s := 0;
for i := 1 to n do
if (i mod 2 &lt;&gt; 0) then s := s + i ;
dùng để:
A. Tính tổng các số nguyên từ 1 đến n. B. Tính tổng các số nguyên chẵn từ 1 đến n.
C. Tính tổng các số nguyên lẻ từ 1 đến n. D. Tính tổng các số nguyên âm từ 1 đến n.

Câu 6: Khi kết thúc câu lệnh lặp For, giá trị của biến đếm bằng …
A. Giá trị cuối B. Giá trị đầu C. Giá trị cuối – 1 D. Giá trị đầu + 1
Câu 7: Khi thực hiện câu lệnh lặp For, sao mỗi vòng lặp, biến đếm sẽ tự động tăng thêm …
A. 1 đơn vị B. 4 đơn vị C. 2 đơn vị D. 3 đơn vị
Câu 8: Câu lệnh ghép là câu lệnh được tạo thành từ 2 hay nhiều câu lệnh đơn giản, các câu lệnh đơn đó phải
được đặt trong hai từ khóa nào?
A. var và end B. uses và begin
C. begin và end; D. const và begin
Câu 9: Để có thể lưu trữ các số nguyên rất lớn trong phạm vi -231 đến 231-1, ta sử dụng kiểu dữ liệu nào sau
đây?
A. real B. double C. longint D. byte
Câu 10: Với câu lệnh for i:=1 to n do … , trong đó i là:
A. Biến đếm chỉ số lần lặp
B. Biến chạy từ đầu đến cuối câu lệnh lặp
C. Biến điều khiển vòng lặp

D. Tất cả đều đúng
Câu 11: Câu lệnh lặp for i:=1 to 15 do writeln(‘O’); có số lần lặp là:
A. 14 B. 15 C. 17 D. 16
Câu 12: Để tính tổng các số nguyên từ 1 đến n, ta sử dụng câu lệnh lặp nào sau đây:
A. for i:=1 to n do s:=s+1; B. for i=1 to n do s:=s+i;
C. for i:=1 to n do s:=s+i; D. for i:=1 to n do s:=s+1;
Câu 13: Trong các câu lệnh sau đây, câu lệnh nào hợp lệ?
A. for i:=100 to 1 do writeln(‘A’); B. for i =1 to 15 do writeln(‘A’);
C. for i:=1 to 100 do writeln(‘A’); D. for i:=1.5 to 10.5 do writeln(‘A’);
Câu 14: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
for i:=1 to 5 do j:=j+3;
A. 9 B. 13 C. 16 D. 15
Câu 15: Đoạn lệnh sau đây:
s := 0;
for i := 1 to n do
if (i mod 2 &lt;&gt; 0) then s := s + i ;
dùng để:
A. Tính tổng các số nguyên từ 1 đến n. B. Tính tổng các số nguyên chẵn từ 1 đến n.
C. Tính tổng các số nguyên lẻ từ 1 đến n . D. Tính tổng các số nguyên âm từ 1 đến n.

sorry nha mih viết bị thíu

BÀI TẬP MÔN TIN NGÀY 20/4/2020
Câu 1: Tác dụng của câu lệnh lặp trong ngôn ngữ lập trình Pascal là dùng:
A. Nhiều lệnh thay cho một lệnh. B. Một lệnh thay cho một lệnh.
C. Một lệnh thay cho nhiều lệnh. D. Nhiều lệnh thay cho nhiều lệnh.
Câu 2: Mọi ngôn ngữ lập trình đều có “cách” để chỉ thị cho máy tính thực hiện cấu trúc lặp với một câu lệnh.
Đó là:
A. Câu lệnh ghép. B. Câu lệnh đơn.
C. Câu lệnh lặp. D. Câu lệnh điều kiện.
Câu 3: Trong Pascal, câu lệnh lặp với số lần biết trước thường gặp có dạng:
A. for ... do … to … B. while ... do ...
C. do ... while … D. for ... to … do …
Câu 4:Trong câu lệnh lặp với số lần biết trước For, số lần lặp được xác định bởi công thức:
A. Số lần lặp = giá trị đầu – giá trị cuối + 1
B. Số lần lặp = giá trị cuối – giá trị đầu + 1
C. Số lần lặp = giá trị cuối – giá trị cuối
D. Số lần lặp = giá trị đầu – giá trị cuối
Câu 5: Khi thực hiện câu lệnh lặp For, ban đầu biến đếm sẽ nhận giá trị là …
A. Giá trị cuối B. Giá trị đầu
C. Giá trị cuối – 1 D. Tất cả đều sai.
Câu 6: Khi kết thúc câu lệnh lặp For, giá trị của biến đếm bằng …
A. Giá trị cuối B. Giá trị đầu C. Giá trị cuối – 1 D. Giá trị đầu + 1
Câu 7: Khi thực hiện câu lệnh lặp For, sao mỗi vòng lặp, biến đếm sẽ tự động tăng thêm …
A. 1 đơn vị B. 4 đơn vị C. 2 đơn vị D. 3 đơn vị
Câu 8: Câu lệnh ghép là câu lệnh được tạo thành từ 2 hay nhiều câu lệnh đơn giản, các câu lệnh đơn đó phải
được đặt trong hai từ khóa nào?
A. var và end B. uses và begin
C. begin và end; D. const và begin
Câu 9: Để có thể lưu trữ các số nguyên rất lớn trong phạm vi -231 đến 231-1, ta sử dụng kiểu dữ liệu nào sau
đây?
A. real B. double C. longint D. byte
Câu 10: Với câu lệnh for i:=1 to n do … , trong đó i là:
A. Biến đếm chỉ số lần lặp
B. Biến chạy từ đầu đến cuối câu lệnh lặp
C. Biến điều khiển vòng lặp

D. Tất cả đều đúng
Câu 11: Câu lệnh lặp for i:=1 to 15 do writeln(‘O’); có số lần lặp là:
A. 14 B. 15 C. 17 D. 16
Câu 12: Để tính tổng các số nguyên từ 1 đến n, ta sử dụng câu lệnh lặp nào sau đây:
A. for i:=1 to n do s:=s+1; B. for i=1 to n do s:=s+i;
C. for i:=1 to n do s:=s+i; D. for i:=1 to n do s:=s+1;
Câu 13: Trong các câu lệnh sau đây, câu lệnh nào hợp lệ?
A. for i:=100 to 1 do writeln(‘A’); B. for i =1 to 15 do writeln(‘A’);
C. for i:=1 to 100 do writeln(‘A’); D. for i:=1.5 to 10.5 do writeln(‘A’);
Câu 14: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
for i:=1 to 5 do j:=j+3;
A. 9 B. 13 C. 16 D. 15
Câu 15: Đoạn lệnh sau đây:
s := 0;
for i := 1 to n do
if (i mod 2 &lt;&gt; 0) then s := s + i ;
dùng để:
A. Tính tổng các số nguyên từ 1 đến n. B. Tính tổng các số nguyên chẵn từ 1 đến n.
C. Tính tổng các số nguyên lẻ từ 1 đến n. D. Tính tổng các số nguyên âm từ 1 đến n.

giúp mih vúi mai nộp rùi

;_;