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.

Xem thêm: Đánh Giá Htc One X Giá Bán 16,5 Triệu Đồng Tại Việt Nam, Htc One X Giá Bán 16,5 Triệu Đồng Tại Việt Nam

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

Điểm

15849

Cám ơn

497


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ểm

15849

Cám ơn

497


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ểm

24096

Cám ơn

591


8.


Chưa gồm nhómTrả lời

0

Điểm

33

Cám ơn

0


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ểm

235

Cám ơn

0


X^n nhưng mà bạn


Chưa bao gồm nhómTrả lời

0

Điểm

180

Cám ơn

0


x mũ n nha


Chưa bao gồm nhómTrả lời

0

Điểm

40

Cám ơn

0


Giải jup câu 5 ik ạ x mũ n á


Chưa có nhómTrả lời

34

Điểm

345

Cám ơn

9


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ểm

24096

Cám ơn

591


*

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

Điểm

30484

Cám ơn

1589


cau 1 teo không nên ko ạ


Chưa bao gồm nhómTrả lời

6

Điểm

139

Cám ơn

1


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ỏi

Sự 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ỏi

Lý 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


*
Trụ sở: Tầng 7, Tòa đơn vị Intracom, Trần Thái Tông, Cầu Giấy, Hà Nội.
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.