Câu 11:

Cú pháp: For <biến đếm>:=<Giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Hoạt động: biến đếm sẽ nhận giá trị của giá trị đầu và tăng dần lên 1 đơn vị sau mỗi lần lặp đến khi bằng giá trị cuối thì dừng

Câu 12:

vòng lặp 1: s=13; x=1; `->` s>5 `->` s:=s-x `->` s=12 `->` s>5 `->` chạy tiếp

vòng lặp 2: s=12; x=1; `->` s>5 `->` s:=s-x `->` s=11 `->` s>5 `->` chạy tiếp

vòng lặp 3: s=11; x=1; `->` s>5 `->` s:=s-x `->` s=10 `->` s>5 `->` chạy tiếp

vòng lặp 4: s=10; x=1; `->` s>5 `->` s:=s-x `->` s=9 `->` s>5 `->` chạy tiếp

vòng lặp 5: s=9; x=1; `->` s>5 `->` s:=s-x `->` s=8 `->` s>5 `->` chạy tiếp

vòng lặp 6: s=8; x=1; `->` s>5 `->` s:=s-x `->` s=7 `->` s>5 `->` chạy tiếp

vòng lặp 7: s=7; x=1; `->` s>5 `->` s:=s-x `->` s=6 `->` s>5 `->` chạy tiếp

vòng lặp 8: s=6; x=1; `->` s>5 `->` s:=s-x `->` s=5 `->` s=5 `->`dừng

`->` Thuật toán trên có 8 lần lặp

Giá trị S=5

Câu 13:

uses crt;

var i,n,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=0;

writeln ('Cac so le tu 1 den ',n,' la: ');

for i:=1 to n do 

if i mod 2=1 then

begin

s:=s+i;

write (i:4);

end;

writeln;

writeln ('tong cua cac so le la: ',s);

readln;

end.

$#Trumtinhoc$