VIẾT CHƯƠNG TRÌNH TÍNH TỔNG S=1+2+3+...+N

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

Cảm ơn

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

512

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 ơ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 trên thầy chuyển đề vậy í

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

0

Cảm ơn

0

X^n mà lại bạn

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

0

Cảm ơn

0

x nón n nha

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

0

Cảm ơn

0

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

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

33

Cảm ơn

9

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 ơ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 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

Cảm ơn

1622

cau 1 co sai ko ạ

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

6

Cảm ơn

1

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

Sự kiện

Quý khách hàng hy vọng hỏi điều gì?

Đặt câu hỏi

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

Trụ sở: Tầng 7, Tòa công ty Intracom, Trần Thái Tông, CG cầu giấy, Thành Phố 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 vày Sở tin tức với Truyền thông.