Bài 6: Giải bài toán trên máy tính

Như Quỳnh

tính tổng dãy số S= 1,2,3,.........N bằng cách liệt kê

Đẹp Trai Trọng
16 tháng 9 2019 lúc 21:02

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

for i:=1 to n do

s:=s+i;

write('Tong:',s);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Lyy Pguong
Xem chi tiết
Tat Đạt
Xem chi tiết
Hisoka 226
Xem chi tiết
Vanhai Nguyen
Xem chi tiết
Ngọc Hiền
Xem chi tiết
Trân Tăng
Xem chi tiết
Lâm Khánh Linh
Xem chi tiết
_zerotwo00_
Xem chi tiết
Mai Nguyen Thi
Xem chi tiết