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...

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;