Câu 1 :

a) For i := 100 to 1 do writeln('A');

⇒ Không hợp lệ

⇒ Giá trị đầu > Giá trị cuối

⇒ Sửa: For i := 1 to 100 do writeln('A');

b) For i := 1.5 to 10.5 do writeln('A');

⇒ Không hợp lệ

⇒ Giá trị biến đếm sai kiểu dữ liệu, 1.5 và 10.5 là số thực

⇒ Sửa: For i := 1 to 10 do writeln('A');

c) X : = 10; while X : = 10 do X : = X + 5;

⇒ Không hợp lệ

⇒ Dấu ' : ' và ' = ' không được ghi tách rời nhau

⇒ X : = 10 không là 1 điều kiện

⇒ Sửa: X := 10; while X = 10 do X := X + 5;

d) X : = 10; while X = 10 do X = X + 5;

⇒ Không hợp lệ

⇒ Sai dấu gán X = X + 5

⇒ Sửa: X := 10; while X = 10 do X := X + 5;

Câu 2:

uses crt;

var i, t, s : integer;

begin

clrscr;

write('Nhap t = '); readln(t);

s := 0; for i := 1 to t do

s := s + i;

write('1 + 2 + ... + ', t ,' = ', s);

readln

end.

1.

 a. for i:=100 to 1 do writeln('A');

`->` giá trị đầu lớn hơn giá trị cuối

`->` sửa: for i:=1 to 100 do writeln('A');

 b. for i:=1.5 to 10.5 do writeln('A');

`->` giá trị đầu và cuối kiểu số thực

`->` sửa: for i:=1 to 10 do writeln('A');

 c. x:=10; while X:=10 do X:=X+5;

`->` sau while là phép gán

`->` sửa: x:=10; while x=10 do x:=x+5;

 d. x:=10; while x=10 do x=x+5;

`->` thiếu : ở trước bằng trong câu lệnh x=x+5;

`->` sửa: x:=10; while x=10 do x:=x+5;

2.

uses crt;

var i,t,n: integer;

begin

clrscr;

n:=0;

write('Nhap t: '); readln(t);

for i:=1 to t do n:=n+i;

write(n);

readln

end.