Câu 1:
Cú pháp: for <variable>:=<giá trị đầu> to <giá trị cuối> do <code>;
Cách thức hoạt động:
+ Lặp 1 giá trị gì đó đến một giới hạn nhất định và thực hiện bởi 1 câu lệnh.
+ Sau mỗi lần lặp thì <variable>+1
Câu 2:
t>20 (true) -> t=t-10=90; n=n+5=6
t>20 (true) -> t=t-10=80; n=n+5=11
t>20 (true) -> t=t-10=70; n=n+5=17
t>20 (true) -> t=t-10=60; n=n+5=22
t>20 (true) -> t=t-10=50; n=n+5=27
t>20 (true) -> t=t-10=40; n=n+5=32
t>20 (true) -> t=t-10=30; n=n+5=37
t>20 (false) -> t=t-10=20; n=n+5=42
Vậy $T=20;n=42$
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
readln(n);
i:=4;s:=2;
while i<=2*n do
begin
inc(s,i);
inc(i,2);
end;
write(s);
readln
end.