C92 ,c95 của bác viết không đúng đâu nhé. C97 thì bỏ s đi nha! :D

91, Painful
92, Knowledgeable
93, Qualified
94, Misery
95, Impressive
96, Dependable
97, Informative
98, Surprisingly
99, Encouragement
100, Disastrous
Bạn nên check xem từ đứng trước từ cần điền là một dt hay đt hay tinhtu hay trang tu thì biết ngay từ cần điền là gì ấy (search work family nhá) Good luck :D

Nếu ở b2 khi S<=5 thì ta có tổng cộng 8 vòng lặp
Cách làm
B1: S:=13, x:=1
B2: Nếu S<=5 thì sang b4
B3: S:=S-x tức 13-1 và quay lại b2 cho đến khi 13 - 8 lần 1 thì kq sai, không vào vòng lặp nữa thì:
B4: S=5 và kết thúc thuật toán
Mình chỉ biết cách làm bài kiểu này thôi! Nếu đúng thì tham khảo bài mình nhé! Và lần sau bạn cần viết đúng các dấu hiệu để không làm sai đề bài nha :D 

Không có câu hỏi bạn à :))

a) Do không phải thực hiện một vòng lặp nào cả vì T được gán là 2 luôn đúng khi While T<2 do... thì T=1 hay <2 thì mới thực hiện vòng lặp
Nên T=2
b) Thực hiện một vòng lặp và X có gtri = 6

Uses crt;
Var a,b,n:integer; {Với a,b phải là số nhỏ thì dùng với kiểu integer}
Begin
Writeln('Nhap so n la:'); Readln(n);
a:=0; b:=0;
While a<=n do
 Begin
   b:=b+a;
   a:=a+1; {Chỉ áp dụng với tổng các số liên tiếp}
 end;
Writeln('Vay tong cac so tu 1 -> ',n,' la:',b);
Readln
End.
Bài mẫu của mình đây nhé!

B. Much luggage
Vì luggage có nghĩa là hành lý, thuộc danh từ không đếm được, nên ta không thể chọn 3 phương án còn lại

From bạn nhé

Đây là lỗi do bạn nhập số quá lớn với kiểu dữ liệu integer chẳng hạn. Nếu là số nhỏ, bạn có thể dùng với integer. Còn với số lớn, bạn nên dùng với real hay longint(tham khảo thêm và không khuyến khích dùng nhiều :)) ) nhé :))) Còn nhiều cái khác nhưng mình chỉ biết mỗi lỗi này. Good luck :))

Bài 1:

Uses crt;
Var I: real; x,n:integer;
Begin
 Clrscr;
Writeln('Nhap so n vao day:'); Readln(n);
I:=0;
 For x:= 1 to n do I:=I+1/x;
Writeln('Vay tong cua I la:',I);
Readln
End.