Viết chương trình tính tổng s = 1+2+...+n

     

Câu vấn đáp được bảo đảm chứa thông tin chính xác và đáng tin cậy, được chứng thực hoặc vấn đáp bởi những chuyên gia, giáo viên số 1 của 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 to 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 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

end.

4.

program ct;

uses crt;

var i,n,a:integer;

begin

clrscr;

a:=1;

for i:=1 to a vị a:=a*i;

writeln("n:=",a);

readln

end.

Xem thêm: Tải Bài Tập Phép Chia Có Dư Lớp 3 Phép Chia Có Số Dư, Phép Chia Có Dư Lớp 3: Ví Dụ, Các Dạng Bài Tập

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


Hãy góp mọi người biết câu trả lời này cố kỉnh nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
4 vote
GửiHủy


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

Cám ơn

512


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




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

1010

Cám ơn

512


mà cho doanh nghiệp hỏi bàn sinh hoạt lớp mấy vậy


*

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

873

Cám ơn

620


8.


Chưa tất cả 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 gồm nhómTrả lời

0

Cám ơn

0


X^n nhưng mà 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 nón n á


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

33

Cám ơn

9


câu 1 gồm đúng ko


Đăng nhập nhằm hỏi đưa ra tiết
Chưa bao gồm 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 lớn 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 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;

end.

Học tốt!


Hãy giú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

1622


cau 1 teo 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ẬP SGK TIN 8 - TẠI ĐÂY

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

Đặt câu hỏi

Sự kiện


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

Đặt câu hỏi

Lý do báo cáo vi phạm?


Gửi yêu ước Hủy


*

Cơ quan nhà quản: công ty 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 nhà Intracom, trằn Thái Tông, mong Giấy, Hà Nội.

Xem thêm: Em Hiểu Thế Nào Về Tư Tưởng Hồ Chí Minh Là Gì? Nội Dung Tư Tưởng Hồ Chí Minh


Giấy phép tùy chỉnh mạng xóm hội bên trên mạng số 331/GP-BTTTT do Bộ thông tin và Truyền thông.