Khá vất vả nên cho xin hay nhất nhé.
Câu 1:
Cấu trúc: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Ban đầu, biến đếm sẽ nhận giá trị bằng giá trị đầu. Sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.
Câu 2:
a. For i:=1 to 10; do x:=x+1; Sau số 10 không được có ';'.
b. For i:=10 to 1 do x:=x+1; Số 10 > số 1 nên không được làm giá trị đầu.
c. For i:=1 to 10 do x:= x+1; Câu lệnh đúng.
d. For i:=1 to 10 For j:=1 to 10 do x:=x+1; Thiếu do của vòng for i.
e. For i:=1 to 10 do For i:=1 to 10 do x:=x+1; Không được lặp lại biến i trong 2 vòng for.
Câu 3:
uses crt;
var i,n:longint; s:real;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do s:=s+1/i;
writeln('S= ',s);
readln
end.
Câu 4:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 10 do writeln('CHUC MUNG NAM MOI');
readln
end.