function tong(n:integer):integer;
var t,i:integer;
begin
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
tong:=t;
end;
Đúng 0
Bình luận (0)
Bài 17: Chương trình con và phân loại
Các câu hỏi tương tự
2. Sử dụng hàm và thủ tục để viết chương trình tính tổng các số chẵn, lẻ trong xâu
Viết chương trình (sử dụng chương trình con) hãy nhập một dãy số nguyên dương từ bàn phím sau đó tính và hiển thị lên màn hình tổng của các số chẵn
Cho mảng A có n phần tử dùng chương trả con thực hiện một số yêu cầu như sau: 1. Viết chương trình nhập mảng A 2. Tính tổng số chẵn, lẻ 3. Tính có bao nhiêu phần tử chia hết cho k.
Viết chương trình nhập vào mảng A gồm N số nguyên A1,A2,.....,An. Sau đó in ra màn hình :
a) Số lượng số chẵn và số lẻ trong dãy
b) Tổng các số chẵn và tổng các số lẻ trong dãy
(Lưu ý: dùng chương trình con để đảm bảo các số chẵn ,số lẻ,tính tổng chẵn và tổng các số lẻ).
Mọi người giúp em câu này với ạ. Em thi vào dạng này mà em không biết làm:(
1) viết chương trình có sử dụng chương trình con để thực hiện yêu cầu sau:
a) thủ tục nhập vào số nguyên N phần tử (N<=100)
b) hàm tính tổng các số chẵn
c) gọi chương trình con để thực hiện và in kết quả tính tổng các số chẵn ra màn hình
Viết chương trình ( sử dụng chương trình con) nhập một dãy n số nguyên dương. Tính tổng các số lẻ trong dãy.
mọi người giúp mình vs mình cần gấp ạ
Bài 1: Viết chương trình nhập vào 1 mảng gồm N số nguyên (0<N<=300). Tính tổng các phần tử lẻ ở vị trí chẵn
Bài 2: Viết chương trình tính tổng 2 số nguyên nhập từ bàn phím. Trong đó có sử dụng chương trình con tính tôgr 2 số
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5.