Viết chương trình tính tổng trong pascal

      74

Câu vấn đáp được chính xác đựng công bố đúng mực với an toàn và đáng tin cậy, được xác nhận hoặc vấn đáp bởi vì các Chuyên Viên, giáo viên hàng đầu của công ty chúng tôi.

Bạn đang xem: Viết chương trình tính tổng 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 bởi 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 bởi vì t:=t+i;

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

readln

over.

3.

program ct;

uses crt;

var tich,n,i:integer;

begin

clrscr;

tich:=1;

for i:=1 to 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 khổng lồ a vị a:=a*i;

writeln("n:=",a);

readln

kết thúc.

Xem thêm: Thống Kê Diện Tích Rừng Việt Nam Qua Các Năm 2019, Hiện Trạng Rừng Việt Nam Qua Các Năm

5. Thiếu dữ kiện


Hãy góp phần đa tín đồ biết câu vấn đáp này cầm nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
2 vote
GửiHủy


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

Điểm

15859

Cám ơn

495


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

1012

Điểm

15859

Cám ơn

495


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


*

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

877

Điểm

24451

Cám ơn

583


8.


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

0

Điểm

33

Cám ơn

0


mình cx ko bik nx á các bạn trên thầy gửi đề vậy í


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

0

Điểm

215

Cám ơn

0


X^n nhưng mà bạn


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

0

Điểm

145

Cám ơn

0


x mũ n nha


Chưa tất 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

33

Điểm

330

Cám ơn

9


câu 1 có đúng ko


Đăng nhập nhằm hỏi chi tiết
Chưa tất cả nhómTrả lời

877

Điểm

24451

Cám ơn

583


*

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;

over.

2)

program ct;

uses crt;

var i,n:integer;

S:longint;

begin clrscr;

S:=0;

for i:=1 to lớn 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 30 do

T:=T*i;

writeln("Tich 30 so tu nhien dau tien la: ",S);

readln;

kết thúc.

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;

kết thúc.

Học tốt!


Hãy góp đa số tín đồ biết câu vấn đáp này vắt nào?


star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
5
starstarstarstarstar
1 vote

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

Điểm

30516

Cám ơn

1578


cau 1 co sai ko ạ


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

6

Điểm

37

Cám ơn

1


Theo mik đúng r ák


Đăng nhập để hỏi bỏ ra tiết

Sub đăng ký kênh góp Ad nhé!


XEM GIẢI BÀI TẬPhường 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


Đáp án tham khảo cuộc thi Đại sứ vnạp năng lượng hoá phát âm 2021

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

Đặt câu hỏi

Lý vì chưng báo cáo vi phạm?


Gửi hưởng thụ Hủy


*

Cơ quan liêu nhà quản: shop Cổ phần Công nghệ Giáo dục đà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, CG cầu giấy, Thành Phố Hà Nội.
Giấy phnghiền tùy chỉnh social trên mạng số 331/GP-BTTTT vì chưng Sở tin tức với Truyền thông.