Hãy viết chương trình sử dụng lệnh lặp WHILE - DO để tính tổng các số tự nhiên từ 1 đến 10
E. Hoạt động tìm tòi mở rộng
Hãy viết chương trình sử dụng lệnh lặp WHILE - DO để tính tổng các số tự nhiên từ 1 đến 10
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
i := 1;
while i <= 10 do
begin
S := S + i;
i := i + 1;
end;
writeln (S);
readln;
end.
Xem toàn bộ: Giải vnen tin 8 bài 9: Cấu trúc lặp
Bình luận