Câu 1: a) Viết cú pháp của câu lệnh lặp với số lần biết trước? b) Dịch đoạn chương trình sau: Program Giai thua; Var n, i : interger; P: Longint; Begin Write (‘Nhap so n = ’); Readln(n); P: = 1; For i := 1 to n do P := P*i; Write(‘Tich cua ’, n ,‘ so tu nhien dau tien la ’,P); Readln; End. C) chạy chương trình với n = 5 Câu 2: a) Viết cú pháp của câu lệnh lặp với số lần chưa biết trước? b) Dịch chương trình sau: Program KT; Var n,i:integer; Begin Write('Nhap vao mot so nguyen: '); readln(n); If n0) do i:=i+1; If i=n Then writeln(N,' la so nguyen to') Else writeln(n,' khong phai la so nguyen to'); End; c) Chạy chương trình trên với n = 9 và n = 7. Câu 3: a) Viết cú pháp khai bảo biến mảng? b) Khai vào 3 mảng thực mỗi mảng gồm 50 phần tử và 2 biến nguyên? c) Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 5, 2, 6. Khi thực hiện câu lệnh sau: tb:= 0; For i:= 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu? Câu 4: Tìm và sửa lỗi sai trong đoạn chương trình sau? Program tinh so cac so duong; Uses crt Var i,A, dem, n: integer; Begin. Clrscr; DEM:=0; Writeln(‘Nhap vao so n); Readln(‘n’); For I =1 to n do begin writeln(‘nhap vao so thu’,i); readln(A); if A>0 then dem:=dem+1; Writeln(‘So cac so duong la’,dem); Readln; End. Câu 5: : Hãy tìm hiểu đoạn chương trình sau: i:=3; j:=2; k:=1; while i