Bài 1:
Program tongdiem;
Uses crt;
Var dcc, dgk, dck, dtb: longint;
Begin
Clrscr;
Write('Nhap diem chuyen can: '); readln(dcc);
Write('Nhap diem giua ki: '); readln(dgk);
Write('Nhap diem cuoi ki: '); readln(dck);
dtb:=(dcc+dgk+dck)/3;
If dtb>=9 then writeln('Loai A');
If (dtb>=7) and (dtb<9) then writeln('Loai B');
If (dtb>=5) and (dtb<7) then writeln('Loai C') else writeln('Loai D');
Readln
End.
Bài 2:
Program tinhtong;
Uses crt;
Var i, s: integer;
Begin
Clrscr;
s:=0;
For i:=150 to 1500 then s:=s+i;
Writeln('Tong la: ',s:0:2);
Readln
End.
Bài 3:
a. Không hợp lệ vì giá trị đầu lớn hơn giá trị cuối nên sử dụng cú pháp: For...down to...do
b. Hợp lệ
c. Không hợp lệ vì sử dụng dấu gán (Không sử dụng dấu bằng)
d. Không hợp lệ vì thừa dấu chấm phẩy sau 'do'
e. Không hợp lệ vì chưa khai báo biến A ở phần khai báo (Phần thân chương trình lại có)
