Trắc nghiệm:
Câu 1: B
Câu 2: A
Câu 3: A (Tính tích các số từ 1 đến 5 `=>` 1×2×3×4×5=120)
Câu 4: C
Câu 5: A (i mod 2=0 là số chẵn)
Câu 6: B
Tự luận
Câu 1:
a) Sai. Giải thích: Thiếu dấu : sau biến đếm i
b) Sai. Giải thích: Là dấu .. chứ không phải ...
c) Đúng. Giải thích: Đúng theo cấu trúc
d) Sai. Giải thích: Vì trước else không có ;
Câu 2:
Uses crt
`->` Uses crt;
N. i:integer
`->` N,i:integer;
S:=S*1/i;
`->` S:=S+i; (hoặc là sửa S:longint; `->` S:real; mà nên áp dụng cái đầu vì tính tổng)
Writeln('Tong của ',N,' so dau tien s= ',s)
`->` Writeln('Tong của ',N,' so dau tien s= ',s);
Câu 3:
program tinhtong;
uses crt;
var n,i:integer; S:longint;
begin
clrscr;
write('Nhap N = '); readln(n);
S:=0;
for i:=1 to n do S:=S+i;
write('S = ',s);
readln
end.
