1/
program BTH;
uses Crt;
var n,i,k:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
If i mod 2 =0 then
k:=k+1;
write(i,', ');
end;
Writeln('So chan co trong day la: ',k);
readln;
end.
2/
B1: Nhập N, k--->0,i--->1
B2: k<---k+i/i+1; i<---i+1;
B3: Nếu i>=n, quay lại bước 2
B4:Thông báo giá trị k
B5: Kết thúc thuật toán