Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trí Cao

hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.

Kiều Vũ Linh
17 tháng 3 2022 lúc 9:18

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.


Các câu hỏi tương tự
Hùng Bùi
Xem chi tiết
huyokkkkk
Xem chi tiết
Vy Tường_8a2
Xem chi tiết
27. Nguyễn Mạnh Quyết 8A...
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Le Van Dai
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
hoang le
Xem chi tiết