Viết hàm tính tổng các số chẵn \(\le\) N
Bài tập chương trình con: (procedure và function) Bài 4: Viết hàm tính tích các số lẻ từ 1 đến n Bài 5: Viết hàm tính tổng các số chẵn chia hết cho 3 từ 1 đến n
Viết thủ tục nhập vào mảng một chiều có n phần tử. - Viết hàm tính tổng các phần tử của mảng? - Viết hàm Kiểm tra xem tổng tìm được là số chẵn hay số lẻ - Viết chương trình chính sử dụng các CTC nói trên. Hiển thị kết quả ra màn hình.
Bài tập 1: Viết chương trình nhập vào n và k, tính và in ra màn hình giá trị C = Yêu cầu viết hàm Def GT(x): ….. Để tính x! (x! = 1*2*3*…*x) Bài tập 2: Viết chương trình nhập vào n nguyên dương, tính và in ra: ☠ Tổng các số chẵn từ 1 à n ☠ Tổng các số lẻ từ 1 à n ☠ Tổng các số chia hết cho k (k nguyên dương nhập vào từ bàn phím) từ 1 à n Yêu cầu viết hàm con cho mỗi việc tính tổng ở trên. Bài tập 3 Viết chương trình nhập vào số nguyên n, tính và in ra tổng các số tạo thành số đó. Bài tập 4 Cho mảng A = [1, 2, 3, 4, 5] Viết chương trình nhập vào k, tính và in ra: (mỗi yêu cầu là một hàm) Tổng các phần tử chẵn trong mảng A Tổng các phần tử lẻ trong mảng A. Tổng các phần tử nguyên tố trong mảng A
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
MÌNH CẦN GẤP Ạ, MAI THI RỒI :(( 1. Viết chương trình tính tổng và tích các số chia hết cho 3 trong dãy số N. 2. Viết chương trình đếm xem trong dãy số N có bao nhiêu số chẵn và tính tổng các số chẵn đó. 3. Viết chương trình đếm có bao nhiêu số chẵn hoặc lẻ trong dãy số N rồi tính tổng và tích của các số chẵn và lẽ đó. Mong mọi người giúp mình :((
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
s:=1;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
t:=t+a[i];
s:=s*a[i];
end;
if dem=0 then writeln('Khong co so chia het cho 3 trong day')
else begin
writeln('Tong cac so chia het cho 3 la: ',t);
writeln('Tich cac so chia het cho 3 la: ',s);
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2,s1,s2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem1:=0;
dem2:=0;
t1:=0;
t2:=0;
s1:=1;
s2:=1;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
inc(dem1);
t1:=t1+a[i];
s1:=s1*a[i];
end
else begin
inc(dem2);
t2:=t2+a[i];
s2:=s2*a[i];
end;
end;
if dem1=0 then writeln('Khong co so chan trong day')
else begin
writeln('So so chan la: ',dem1);
writeln('Tong cac so chan la: ',t1);
writeln('Tich cac so chan la: ',s1);
end;
if dem2=0 then writeln('Khong co so le trong day')
else begin
writeln('So so le la: ',dem2);
writeln('Tong cac so le la: ',t2);
writeln('Tich cac so le la: ',s2);
end;
readln;
end.
Viết chương trình nhập số tự nhiên n 2 in ra màn hình các số chẵn từ 1 đến n tính tổng số chẵn Vd) N=10;các số chẵn2,4,6,8,10 Tính tổng =2+4+6+8+10
#include <bits/stdc++.h>
using namespace std;
long long i,n,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
if (i%2==0) s=s+i;
cout<<s;
return 0;
}
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy dãy có bao nhiêu số chẵn tính tổng các số chẵn đó
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b) dãy có bao nhiêu số chẵn tính tổng các số chẵn đó
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b)dãy có bao nhiêu số chẵn tính tổng các số chẵn đó SOSSSSS