Cách viết chương trình tính tổng s=1+2+3+…+n trong pascal

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của 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

end.

2.

program ct;

uses crt;

var t,n,i:integer;

begin

clrscr;

t:=0;

for i:=1 to 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 30 do 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 do 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 giúp mọi người biết câu trả lời này thế nào?

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
2 vote
GửiHủy


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

Điểm

15849

Cám ơn

497

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

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

1011

Điểm

15849

Cám ơn

497

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

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

873

Điểm

24096

Cám ơn

591

8.

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

0

Điểm

33

Cám ơn

0

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

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

0

Điểm

235

Cám ơn

0

X^n mà bạn

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

0

Điểm

180

Cám ơn

0

x mũ n nha

Chưa có 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 có đúng ko

Đăng nhập để hỏi chi 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 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 to n do

gt:=gt*i;

writeln("n!= ",gt);

readln;

end.

Học tốt!

Hãy giúp mọi người 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ời1081

Điểm

30484

Cám ơn

1589

cau 1 co sai ko ạ

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

6

Điểm

139

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

Đua top nhận quà tháng 12/2021Quay Tiktok - nhận quà chóp

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ầu Hủy

Cơ quan chủ 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, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.