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.

Câu 1: B

Câu 2: A

Câu 3: A s = 1x2x3x4x5 = 120

Câu 4: C

Câu 5: A

Câu 6: B

Tự luận

Bài 1

A Sai vì thiếu dấu hai chấm i:=1

B Sai vì dư dấu chấm [5..10]

C Đúng 

D Sai vì trước else không có chấm phẩy.

Bài 2

uses crt => uses crt;

N.i :integer => N, i: integer;

Do tên của chương trình là Tinhtong (tính tổng) nên sửa S=S*1/i => S:=S*1/i; 

Hoặc bạn sửa S: longint => S: real; (không đề cử)

Writeln('Tong cua ', N,' so dau tien', S);

Bài 3:

uses crt;

var n, i, s:integer;

begin

    clrscr;

    readln(n);

    for i:= 1 to n do

        s:=s+i;

    write(s);

    readln;

end.