1. Viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 100. 2. Viết chương trình tổng của các lập phương n số tự nhiên đầu tiên, với n được nhập từ bàn phím? 3. Viết chương trình nhập từ bàn phím số nguyên dương n và dãy A gồm n số nguyên dươn

120127962550068

2 năm trước

1. Viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 100. 2. Viết chương trình tổng của các lập phương n số tự nhiên đầu tiên, với n được nhập từ bàn phím? 3. Viết chương trình nhập từ bàn phím số nguyên dương n và dãy A gồm n số nguyên dương A1, A2,..., An, sau đó in ra màn hình trung bình các phần tử chẫn trong dãy A.

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

phuongnguyentlb

Bài 1:

Program Bai_1;

Use Crt;

Const: N=100;

Var i, s: Integer;

Begin

clrscr;

s:=0; i:=;

while i <= N do

Begin

i:=i+1; s:=s+i;

End;

Writeln ('Tong 100 so tu nhien dau tien la',s);

Readln;

End.

Bài 2:

Program Bai_2;

Use Crt;

Var i, s, n: Longint;

Begin

Writeln ('Nhap N');

Readln (n);

s:=0;

for i:=1 to n do

Begin

s:=i+1;

End;

Writeln ('Tong la',s);

Readln;

End.

Bài 3:

Program Bai_3;

Use Crt;

Var A: Array [1..100] of Integer;

i, n, s: Integer;

tb: Longint;

Begin

clrscr;

Writeln ('Nhap N');

Readln (n);

for i:=1 to n do

Begin

Readln (A[i]);

for i:=1 to n do

s:=s+A[i];

tb:=s/n;

End;

Writeln ('Gia tri trung binh la',tb);

Readln;

End.

Vote (0) Phản hồi (0) 2 năm trước

dungnguyen.exo.snsd

`1)`

Var i, s: Integer;

Begin

clrscr;

s:=0; i:=;

while i <= N do

Begin

i:=i+1; s:=s+i;

End;

Writeln ('Tong 100 so tu nhien dau tien la',s);

Readln;

End.

`2)`

Var i, s, n: Longint;

Begin

Writeln ('Nhap N');

Readln (n);

s:=0;

for i:=1 to n do

Begin

s:=i+1;

End;

Writeln ('Tong la',s);

Readln;

End.

`3)`

Var A: Array [1..100] of Integer;

i, n, s: Integer;

tb: Longint;

Begin

clrscr;

Writeln ('Nhap N');

Readln (n);

for i:=1 to n do

Begin

Readln (A[i]);

for i:=1 to n do

s:=s+A[i];

tb:=s/n;

End;

Writeln ('Gia tri trung binh la',tb);

Readln;

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Dẫn 1,12 ml khí so2 (đktc) vào 75 ml dd NaOH 1M hãy tính khối lượng sản phẩm tạo thành?

Hãy viết đoạn văn miêu tả cảnh bình minh xứ Nghệ

diễn biến cuộc kháng chiến chống pháp của nhận dân ta ở đà Nẵng và gia định diễn ra ntn?

thực vật có vai trò gì trong đời sống con người.Cho ví dụ

các khoáng sản nào sau đây của nước ta hình thành trong giai đoạn Tân kiến tạo a thân quảng ninh b.than nông sơn c.dầu khí thềm lục địa d.sắt ở thái nguyên

Điền các từ ngữ(thanh bình,quyết đông,ruộng hoang, làng quê) Quang Trung ban bố chiến.......,lệnh cho dân đã từng từ bỏ........ phải trở về quê cũ cày cấy, cai phá........với chính sách này, chỉ vài năm sau, mùa màng đã trở lại tươi tốt, làng xóm lại.......

Viết 1 đoạn văn ns về thực trạng của ma túy

1.Vì sao phải tiêm vắc xin cho vật nuôi? Cho ví dụ 2.Thế nào là bệnh truyền nhiễm? Cho ví dụ

Cho tg ABC vuông tại A có Ab=3cm, AC=4cm. Kẻ đường cao AH (H thuộc BC). a) Tính độ dài cạnh BC b) So sánh HB và HC. c) Trên tia đối của tia HA lấy điểm D sao cho HD=HA. Chứng minh tg ACD cân. d) Kẻ DK vuông góc AC (K thuộc AC). DK cắt HC tại I. Chứng minh AI vuông DC

Cho tam giác abc vuông tại a ab<ac có đường cao ah a/chứng minh tam giác hba đồng dạng tam giác abc b/chứng minh tam giác hba đồng dạng tam giác hac

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến