Câu trả lời được chuẩn xác cất báo cáo chính xác cùng an toàn và tin cậy, được xác thực hoặc trả lời vì các Chuyên Viên, giáo viên số 1 của Shop chúng tôi.
Bạn đang xem: Viết chương trình tính tổng s=1+2+3+...+n

1.
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write("nhap n:=");readln(n);
s:=0;
for i:=1 lớn n vày s:=s+i;
writeln("tong la:",s);
readln
end.
2.
program ct;
uses crt;
var t,n,i:integer;
begin
clrscr;
t:=0;
for i:=1 to lớn 200 bởi vì t:=t+i;
writeln("tong cua 200 so nguyen dau tien la:",t);
readln
end.
3.
program ct;
uses crt;
var tich,n,i:integer;
begin
clrscr;
tich:=1;
for i:=1 to lớn 30 vì tich:=tich*i;
writeln("tich cua 30 so nguyen dau tien la:",tich);
readln
kết thúc.
4.
program ct;
uses crt;
var i,n,a:integer;
begin
clrscr;
a:=1;
for i:=1 to lớn a vày a:=a*i;
writeln("n:=",a);
readln
kết thúc.
Xem thêm: Inspection Là Gì - Inspection In Vietnamese
5. Thiếu dữ kiện
Hãy góp đa số tín đồ biết câu trả lời này vắt nào?
star
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
4 vote
GửiHủy
Chưa gồm nhómTrả lời1010
512
vậy thì mình làm cho tới câu 4 thôi
Chưa gồm nhómTrả lời
1010
Cảm ơn512
cơ mà cho doanh nghiệp hỏi bạn học lớp mấy vậy

Chưa bao gồm nhómTrả lời
873
Cảm ơn620
8.
Chưa tất cả nhómTrả lời
0
Cảm ơn0
bản thân cx ko bik nx á bạn trên thầy chuyển đề vậy í
Chưa có nhómTrả lời
0
Cảm ơn0
X^n mà lại bạn
Chưa tất cả nhómTrả lời
0
Cảm ơn0
x nón n nha
Chưa tất cả nhómTrả lời
0
Cảm ơn0
Giải jup câu 5 ik ạ x nón n á
Chưa tất cả nhómTrả lời
33
Cảm ơn9
câu 1 bao gồm đúng ko
Đăng nhập nhằm hỏi bỏ ra tiết
Chưa tất cả nhómTrả lời
873
Cảm ơn620

1)
program ct;
uses crt;
var i,n:integer;
S:longint;
begin clrscr;
writeln("Nhap so n: "); readln(n);
S:=0;
for i:=1 to lớn n do
S:=S+i;
writeln("Tong S la: ",S);
readln;
end.
2)
program ct;
uses crt;
var i,n:integer;
S:longint;
begin clrscr;
S:=0;
for i:=1 to 200 do
S:=S+i;
writeln("Tong 200 so nguyen dau tien la: ",S);
readln;
kết thúc.
3)
program ct;
uses crt;
var i,n:integer;
T:longint;
begin clrscr;
T:=1;
for i:=1 to lớn 30 do
T:=T*i;
writeln("Tich 30 so tu nhien dau tien la: ",S);
readln;
end.
4)
program ct;
uses crt;
var i,n:integer;
gt:longint;
begin clrscr;
gt:=1;
for i:=1 lớn n do
gt:=gt*i;
writeln("n!= ",gt);
readln;
end.
Học tốt!
Hãy góp phần đa fan biết câu vấn đáp này gắng nào?
star
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote
GửiHủy
Because no no noTrả lời1080
1622
cau 1 co sai ko ạ
Chưa gồm nhómTrả lời
6
Cảm ơn1
Theo mik đúng r ák
Đăng nhập nhằm hỏi chi tiết
XEM GIẢI BÀI TẬPhường. SGK TIN 8 - TẠI ĐÂY
quý khách mong hỏi điều gì?
Đặt câu hỏiSự kiện
Quý khách hàng hy vọng hỏi điều gì?
Đặt câu hỏiLý do báo cáo vi phạm?
Gửi thử khám phá Hủy

Cơ quan công ty quản: Shop chúng tôi Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng

Giấy phép tùy chỉnh cấu hình mạng xã hội bên trên mạng số 331/GP-BTTTT vày Sở tin tức với Truyền thông.