3. Em hãy cho biết đoạn chương trình tính tổng các số tự nhiên từ 1 đến 10 sau đây có cho kết quả đúng hay không?
i := 1; s := 0;
while i < 10 do
s := s + i;
i := i + 1;
writeln (s);
readln;
Bài Làm:
Kết quả đoạn chương trình trên không đúng. Vì sau do muốn sử dụng nhiều câu lệnh trên phải đặt các câu lệnh trong BEGIN END;
while i < 10 do
begin
s := s + i;
i := i + 1;
end;