Câu vấn đáp được xác thực đựng đọc tin đúng chuẩn cùng tin cậy, được xác thực hoặc vấn đáp vày các chuyên gia, gia sư số 1 của Cửa Hàng chúng tôi.
Bạn đang xem: Cách viết chương trình tính tổng s=1+2+3+…+n trong pascal

1.
program ct;
uses crt;
var s,i,n:integer;
begin
clrscr;
write("nhap n:=");readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln("tong la:",s);
readln
kết thúc.
2.
program ct;
uses crt;
var t,n,i:integer;
begin
clrscr;
t:=0;
for i:=1 khổng lồ 200 do 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 bởi vì tich:=tich*i;
writeln("tich cua 30 so nguyen dau tien la:",tich);
readln
over.
4.
program ct;
uses crt;
var i,n,a:integer;
begin
clrscr;
a:=1;
for i:=1 lớn a vì chưng a:=a*i;
writeln("n:=",a);
readln
end.
5. Thiếu dữ kiện
Hãy góp đông đảo bạn biết câu trả lời này núm nào?
star
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
2 vote
GửiHủy
Chưa gồm nhómTrả lời1011
15849
Cám ơn497
vậy thì mình làm cho cho tới câu 4 thôi
Chưa có nhómTrả lời
1011
Điểm15849
Cám ơn497
nhưng cho khách hàng hỏi bạn làm việc lớp mấy vậy

Chưa tất cả nhómTrả lời
873
Điểm24096
Cám ơn591
8.
Chưa gồm nhómTrả lời
0
Điểm33
Cám ơn0
mình cx ko bik nx á chúng ta tại thầy gửi đề vậy í
Chưa bao gồm nhómTrả lời
0
Điểm235
Cám ơn0
X^n nhưng mà bạn
Chưa bao gồm nhómTrả lời
0
Điểm180
Cám ơn0
x mũ n nha
Chưa bao gồm nhómTrả lời
0
Điểm40
Cám ơn0
Giải jup câu 5 ik ạ x mũ n á
Chưa có nhómTrả lời
34
Điểm345
Cám ơn9
câu 1 gồm đúng ko
Đăng nhập để hỏi đưa ra tiết
Chưa có nhómTrả lời
873
Điểm24096
Cám ơn591

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;
over.
2)
program ct;
uses crt;
var i,n:integer;
S:longint;
begin clrscr;
S:=0;
for i:=1 lớn 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 to lớn n do
gt:=gt*i;
writeln("n!= ",gt);
readln;
kết thúc.
Học tốt!
Hãy giúp số đông bạn biết câu vấn đáp này vậy nào?
star
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote
GửiHủy
Because no no noTrả lời1081
30484
Cám ơn1589
cau 1 teo không nên ko ạ
Chưa bao gồm nhómTrả lời
6
Điểm139
Cám ơn1
Theo mik đúng r ák
Đăng nhập nhằm hỏi bỏ ra tiết
XEM GIẢI BÀI TẬP SGK TIN 8 - TẠI ĐÂY
quý khách hàng mong mỏi hỏi điều gì?
Đặt câu hỏiSự kiện
Đua top nhận vàng mon 12/2021Quay Tiktok - dấn vàng chóp
Quý khách hàng ý muốn hỏi điều gì?
Đặt câu hỏiLý do report vi phạm?
Gửi thưởng thức Hủy

Cơ quan nhà quản: chúng tôi Cổ phần Công nghệ Giáo dục đào tạo 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 bởi Bộ tin tức cùng Truyền thông.