Viết Chương Trình Tính Tổng S = 1+2+...+N

Câu vấn đáp được đảm bảo đựng biết tin đúng mực và an toàn, được xác nhận hoặc trả lời do các Chuyên Viên, gia sư bậc nhất của Shop chúng tôi.

Bạn đang xem: Viết chương trình tính tổng s = 1+2+...+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ị 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 to 200 vì t:=t+i;

writeln("tong cua 200 so nguyen dau tien la:",t);

readln

kết thúc.

3.

program ct;

uses crt;

var tich,n,i:integer;

begin

clrscr;

tich:=1;

for i:=1 lớn 30 bởi 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 to lớn a vày a:=a*i;

writeln("n:=",a);

readln

over.

Xem thêm: Sàn Bitstamp Là Gì - Đánh Giá Sàn Bitstamp Mới Nhất 11/07/2021

5. Thiếu dữ kiện

Hãy góp phần nhiều tín đồ biết câu trả lời này nạm nào?

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
4 vote
GửiHủy


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

Cảm ơn

512

vậy thì bản thân làm cho tới câu 4 thôi

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

1010

Cảm ơn

512

mà lại cho mình hỏi bạn làm việc lớp mấy vậy

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

873

Cảm ơn

620

8.

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

0

Cảm ơn

0

bản thân cx ko bik nx á bạn tại thầy gửi đề vậy í

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

0

Cảm ơn

0

X^n cơ mà bạn

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

0

Cảm ơn

0

x nón n nha

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

0

Cảm ơn

0

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

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

33

Cảm ơn

9

câu 1 gồm đúng ko

Đăng nhập để hỏi đưa ra tiết
Chưa tất cả nhómTrả lời

873

Cảm ơn

620

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 n do

S:=S+i;

writeln("Tong S la: ",S);

readln;

kết thúc.

2)

program ct;

uses crt;

var i,n:integer;

S:longint;

begin clrscr;

S:=0;

for i:=1 khổng lồ 200 do

S:=S+i;

writeln("Tong 200 so nguyen dau tien la: ",S);

readln;

end.

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;

over.

4)

program ct;

uses crt;

var i,n:integer;

gt:longint;

begin clrscr;

gt:=1;

for i:=1 to n do

gt:=gt*i;

writeln("n!= ",gt);

readln;

over.

Học tốt!

Hãy giúp số đông fan biết câu vấn đáp này nắm nào?

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote
GửiHủy
Because no no noTrả lời1080

Cảm ơn

1622

cau 1 co không đúng ko ạ

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

6

Cảm ơn

1

Theo mik đúng r ák

Đăng nhập để hỏi đưa ra tiết
XEM GIẢI BÀI TẬP SGK TIN 8 - TẠI ĐÂY

Quý Khách mong muốn hỏi điều gì?

Đặt câu hỏi

Sự kiện

Quý Khách ý muốn hỏi điều gì?

Đặt câu hỏi

Lý vì report vi phạm?

Gửi trải nghiệm Hủy

Cơ quan công ty quản: công ty chúng tôi Cổ phần Công nghệ giáo dục và đào tạo Thành Phát

Tải ứng dụng

Trụ sở: Tầng 7, Tòa bên Intracom, Trần Thái Tông, Cầu Giấy, thủ đô.
Giấy phép thiết lập cấu hình mạng xã hội trên mạng số 331/GP-BTTTT vì Bộ Thông tin và Truyền thông.