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

NQ

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

DT
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ự
LP
Xem chi tiết
TD
Xem chi tiết
H2
Xem chi tiết
VN
Xem chi tiết
NH
Xem chi tiết
TT
Xem chi tiết
LL
Xem chi tiết
H24
Xem chi tiết
MT
Xem chi tiết