Bài 1:
a. For i:=1 to 10; do x:=x+1; (Sai).
--> For i:=1 to 10 do x:=x+1;
b. for i:=10 to 1 do x:=x+1; (Sai, vì giá trị đầu phải nhỏ hơn giá trị cuối).
--> for i:=1 to 10 do x:=x+1;
c. for i:=1 to 10 do x:=x+1; (Đúng).
d. for i:=1 to 10 for j:=1 to 10 do x:=x+1; (Sai cú pháp).
--> for i:=1 to 10 do for j:=1 to 10 do x:=x+1;
e. for i:=1 to 10 do for i:=1 to 10 do x:=x+1; (Câu này là do trùng vòng lặp, có thể sửa lại bằng cách thay thế vòng lặp i (đã in đậm) thành một vòng lặp nào đó).
f. while i:=1 do t:=10; (Sai).
--> while i=1 do t:=10;
g. while a<=b; do write('b khong nho hon a');
--> while a<=b do write('b khong nho hon a');
Bài 2:
 -Đoạn chương trình for i:=1 to 9 do write(i,' '); sẽ thực hiện công việc in i ra màn hình theo thứ tự từ 1 đến 9.
Bài 3: Tớ không biết làm ^-^

                               Tiết 68: ÔN TẬP (tt)
Bài 1:
*Sử dụng câu lệnh lặp for...do*
Program Tenchuongtrinh;
Uses crt;
Var s:real; i,n:integer;
Begin
         Clrscr;
         Write('Nhap n= '); readln(n);
         s:=0;
         For i:=1 to n do
           s:=s+1/i;
         Writeln('Tong la: ',s:0:1);
         Readln;
End.
*Sử dụng câu lệnh lặp while...do*
Program Tenchuongtrinh;
Uses crt;
Var s:real; i,n:integer;
Begin
         Clrscr;
         Write('Nhap n= '); readln(n);
         s:=0;
         i:=1;
         While (i<=n) do
           begin
             s:=s+1/i;
             i:=i+1;
           end;
         Writeln('Tong la: ',s:0:1);
         Readln;
End.
Bài 2:
Program Tenchuongtrinh;
Uses crt;
Var A: array[1..100] of longint;
      i,n,tong:longint;
Begin
         Clrscr;
         Write('Nhap so phan tu cua day n= '); readln(n);
         For i:=1 to n do
           begin
             write('A[',i,']= '); readln(A[i]);
           end;
         tong:=0;
         For i:=1 to n do
           if (i mod 2=0) and (A[i] mod 2=1) then tong:=tong+A[i];
         Writeln('Tong la: ',tong);
         Readln;
End.