Câu 1: D
Câu 2: C
Câu 3: D
Câu 4: B
Câu 5: B
Câu 6: B
Câu 7: A
Câu 8: D
Câu 9: A
Câu 10: C
Câu 11: D
Câu 12: A
Câu 13: A
Câu 14: D
Câu 15: A
Câu 16: B
Câu 17: B
Câu 18: A
Câu 19: Không có đáp án đúng
Câu 20: B
Câu 21: C
Câu 22: B
Câu 23: B
Câu 24: B
Câu 25: A
Thực hành:
Câu 1:
Program TinhTong;
Uses crt;
Var n,res: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
res:=n*(n+1) div 2;
Write('Tong cac so tu nhien tu 1 den n: ',res);
Readln
End.
Câu 2:
Program TinhTich;
Uses crt;
Var n,i: longint;
res: qword;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
res:=1;
For i:=1 to n do
res:=res*i;
Write('Tich = ',res);
Readln
End.