Trắc nghiệm:

1B    2A    3D   4B   5C

Tự luận:

Bài 1:

uses crt;
var n,tong,i:integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        tong:=0;
        for i:=1 to n do tong:=tong+i;
        write('Tong ',n,' so tu nhien dau tien la:',tong);
        readln
END.

Bài 2:

uses crt;
var n,i:integer;
    tong:real;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        tong:=0;
        for i:=1 to n do tong:=tong+1/i;
        write('Tong nghich dao ',n,' so tu nhien dau tien la:',tong:0:3);
        readln
END.

Bài 3:

uses crt;
var n,i:integer;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        for i:=1 to 9 do
                writeln(n,' x ',i,' = ',n*i);
        write('  ');
        readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất.

1: B

2: A

3: D

4: B

5: C