Bài 4. Sử dụng biến trong chương trình

Phương Mai

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 100

Minh Lệ
2 tháng 5 2019 lúc 19:52

Lời giải :

program hotrotinhoc;

var tong,n : integer;

begin

tong:=0; n:=0;

while tong<100 do

begin

n:=n+1;

tong:=tong+n;

end;

write('Tong la :',tong);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Trần Ngọc My
Xem chi tiết
Trần Ngọc My
Xem chi tiết
Huỳnh Thanh Trúc
Xem chi tiết
Nguyễn Xuân Thảo Lu
Xem chi tiết
Nguyễn trường giang
Xem chi tiết
Hoa Mai
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Anh Pro Viet Nam
Xem chi tiết
Lãnh Tử Thiên
Xem chi tiết