Hãy viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10
D. Hoạt động vận dụng
Hãy viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
for i:=1 to 10 do S := S + i;
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