Một số khái niệm cơ bản của tin học

TN

Đề :Nhập 1 số n nguyên dương(N<=1000).Tính tổng:S=1+2+....+N giải bằng cách liệt kê

mọi người giúp em với mai em thi rồi

NT
17 tháng 12 2019 lúc 22:23

uses crt;

var n,i,s:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('tong la: ',s);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
TN
Xem chi tiết
GS
Xem chi tiết
AT
Xem chi tiết
BM
Xem chi tiết
HN
Xem chi tiết
BM
Xem chi tiết
TL
Xem chi tiết
HV
Xem chi tiết
PL
Xem chi tiết