Viết Chương Trình Tính Tổng Các Phần Tử Trong Mảng

     

Câu vấn đáp được đúng đắn chứa thông tin đúng chuẩn và đáng tin cậy, được xác thực hoặc vấn đáp bởi các chuyên gia, giáo viên bậc nhất của bọn chúng tôi.

Bạn đang xem: Viết chương trình tính tổng các phần tử trong mảng


*

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

end.

2.

program ct;

uses crt;

var t,n,i:integer;

begin

clrscr;

t:=0;

for i:=1 lớn 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 vày tich:=tich*i;

writeln("tich cua 30 so nguyen dau tien la:",tich);

readln

end.

4.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 lớn a bởi vì a:=a*i;

writeln("n:=",a);

readln

end.

Xem thêm: Nêu Những Điểm Khác Nhau Giữa Nst Giới Tính Và Nst Thường ? Bài 1, 2, Trang 41, Sgk Sinh Học Lớp 9, 1

5. thiếu hụt dữ kiện


Hãy giúp mọi người biết câu vấn đáp này vắt nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
4 vote
GửiHủy


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

Cảm ơn

515


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




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

1010

Cảm ơn

515


mà cho doanh nghiệp hỏi bạn học lớp mấy vậy


*

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

873

Cảm ơn

620


8.


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

0

Cảm ơn

0


mình cx ko bik nx á bạn tại thầy đưa đề vậy í


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

0

Cảm ơn

0


X^n mà lại bạn


Chưa gồm 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 mũ n á


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

33

Cảm ơn

9


câu 1 có đú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;

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;

end.

3)

program ct;

uses crt;

var i,n:integer;

T:longint;

begin clrscr;

T:=1;

for i:=1 to 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 khổng lồ n do

gt:=gt*i;

writeln("n!= ",gt);

readln;

end.

Học tốt!


Hãy góp mọi bạn biết câu trả lời này thế nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote

GửiHủy
Because no no noTrả lời1080

Cảm ơn

1627


cau 1 teo sai ko ạ


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

6

Cảm ơn

1


Theo mik đúng r ák


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

Bạn muốn hỏi điều gì?

Đặt câu hỏi

Sự kiện


Bạn ao ước hỏi điều gì?

Đặt câu hỏi

Lý do report vi phạm?


Gửi yêu mong Hủy


*

Cơ quan chủ quản: doanh nghiệp Cổ phần technology Giáo dục Thành Phát


Tải ứng dụng


*
Trụ sở: Tầng 7, Tòa bên Intracom, è cổ Thái Tông, mong Giấy, Hà Nội.

Xem thêm: Top 14+ Ví Dụ Về Môi Trường Ưu Trương Là Gì, Top 12 Nhược Trương Là Gì


Giấy phép cấu hình thiết lập mạng xóm hội trên mạng số 331/GP-BTTTT do Bộ thông tin và Truyền thông.