Câu 9: Uses crt;

Var  i,s: integer;

begin

clrscr;

for i:=1 to 19 do begin

if i mod 2=0 then

s:=s+i;  end;

writeln('Tong cac so chan nho hon 20 la:',s);

readln;

end.

Câu 10:

Cú pháp :   while <điều kiện> do <câu lệnh>;

Ý nghĩa: Đầu tiên kiểm tra đk nếu đk đúng thì thưc hiện câu lệnh, quá trình cứ lặp lại đến khi nào đk sai thì kết thúc 

câu 9:

program ct;

uses crt;

var S,i:integer;

begin

clrscr;

    S:=0;

      for i:=1 to 19 do

        if i  mod 2=0 then S:=S+i;

    writeln('tong la:',S);

readln

end.

Câu 10:

-cú pháp while do

 While <điều kiện> do<câu lệnh>;

trong đó:

- điều kiện thường là một phép so sánh

- câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép.

-cách thực hiện:

B1: kiểm tra điều kiện

B2: Nếu điều kiện Sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lẹnh lặp kết thức. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.