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.
