Tính số phần tử
A={ 0;1;2;...;10}
Ai nhanh mk tick cho
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program XuLyDaySo;
var
N, i, soNguyen, tong, tongLe, max, min, demMax: integer;
begin
// Nhập số lượng phần tử N
write('Nhap so luong phan tu N: ');
readln(N);
// Khởi tạo các biến
tong := 0;
tongLe := 0;
demMax := 0;
// Nhập dãy số và thực hiện các phép toán
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(soNguyen);
// a) Tính tổng các phần tử trong dãy
tong := tong + soNguyen;
// b) Tính tổng các phần tử lẻ trong dãy
if soNguyen mod 2 <> 0 then
tongLe := tongLe + soNguyen;
// c) Tìm phần tử lớn nhất, bé nhất trong dãy
if i = 1 then
begin
max := soNguyen;
min := soNguyen;
end
else
begin
if soNguyen > max then
max := soNguyen;
if soNguyen < min then
min := soNguyen;
end;
// d) Đếm số lượng phần tử có giá trị lớn nhất
if soNguyen = max then
demMax := demMax + 1;
end;
// In kết quả
writeln('a) Tong cac phan tu cua day: ', tong);
writeln('b) Tong cac phan tu le cua day: ', tongLe);
writeln('c) Phan tu lon nhat trong day: ', max);
writeln(' Phan tu nho nhat trong day: ', min);
writeln('d) So luong phan tu co gia tri lon nhat: ', demMax);
readln;
end.
A:
mặt hay đuôi
B:
Mặt, đuôi
đuôi, mặt
Mặt, mặt
Đuôi, đuôi
C:
Mặt, đuôi, mặt
mặt, mặt, mặt
đuôi, đuôi, đuôi
đuôi, mặt, đuôi
đuôi, mặt, mặt
mặt, đuôi, đuôi
Lời giải:
$A=\left\{n\in\mathbb{N}^*|\text{n là số nguyên tố nhỏ hơn 13}\right\}$
$B=\left\{4k|k\in\mathbb{N},k \leq 5\right\}$
uses crt;
var a:array[1..200]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 200 do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac phan tu le nho hon 200 la: ');
for i:=1 to n do
if (a[i] mod 2<>0) and (a[i]<200) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if (50<a[i]) and (a[i]<80) then t:=t+sqr(a[i]);
writeln('Tong binh phuong cac phan tu thuoc khoang (50;80) la: ',t);
readln;
end.
`#3107.101107`
a,
\(\text{A = }\left\{x\in R\text{ | }\left(2x-x^2\right)\left(3x-2\right)=0\right\}\)
`<=> (2x - x^2)(3x - 2) = 0`
`<=>`\(\left[{}\begin{matrix}2x-x^2=0\\3x-2=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x\left(2-x\right)=0\\3x=2\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\2-x=0\\x=\dfrac{2}{3}\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\x=2\\x=\dfrac{2}{3}\end{matrix}\right.\)
Vậy, `A = {0; 2; 2/3}`
b,
\(\text{B = }\left\{x\in R\text{ | }2x^3-3x^2-5x=0\right\}\)
`<=> 2x^3 - 3x^2 - 5x = 0`
`<=> x(2x^2 - 3x - 5) = 0`
`<=>`\(\left[{}\begin{matrix}x=0\\2x^2-3x-5=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\2x^2-2x+5x-5=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\\left(2x^2-2x\right)+\left(5x-5\right)=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\2x\left(x-1\right)+5\left(x-1\right)=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\\left(2x+5\right)\left(x-1\right)=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\2x+5=0\\x-1=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=0\\x=-\dfrac{5}{2}\\x=1\end{matrix}\right.\)
Vậy, `B = {-5/2; 0; 1}.`
c,
\(\text{C = }\left\{x\in Z\text{ | }2x^2-75x-77=0\right\}\)
`<=> 2x^2 - 75x - 77 = 0`
`<=> 2x^2 - 2x + 77x - 77 = 0`
`<=> (2x^2 - 2x) + (77x - 77) = 0`
`<=> 2x(x - 1) + 77(x - 1) = 0`
`<=> (2x + 77)(x - 1) = 0`
`<=>`\(\left[{}\begin{matrix}2x+77=0\\x-1=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}2x=-77\\x=1\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=-\dfrac{77}{2}\\x=1\end{matrix}\right.\)
Vậy, `C = {-77/2; 1}`
d,
\(\text{D = }\left\{x\in R\text{ | }\left(x^2-x-2\right)\left(x^2-9\right)=0\right\}\)
`<=> (x^2 - x - 2)(x^2 - 9) = 0`
`<=>`\(\left[{}\begin{matrix}x^2-x-2=0\\x^2-9=0\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x^2+x-2x-2=0\\x^2=9\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}\left(x^2+x\right)-\left(2x+2\right)=0\\x^2=\left(\pm3\right)^2\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x\left(x+1\right)-2\left(x+1\right)=0\\x=\pm3\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}\left(x-2\right)\left(x+1\right)=0\\x=\pm3\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x-2=0\\x+1=0\\x=\pm3\end{matrix}\right.\)
`<=>`\(\left[{}\begin{matrix}x=2\\x=-1\\x=\pm3\end{matrix}\right.\)
Vậy, `D = {-1; -3; 2; 3}.`
Nhiệt độ ở SaPa vào buổi trưa là: \(15+3=18\left(^oC\right)\)
Nhiệt ở SaPa vào buổi trưa là :
\(15+3=18\left(^0C\right)\)
Đáp số : \(18^0C\)
\(A=\left\{22;24;26;28;30;32;34\right\}\)
\(B=\left\{151;153;155;157;159\right\}\)
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if (a[i]+a[i+1] mod 10=0) then
begin
writeln(a[i],' ',a[i+1]);
writeln(i,' ',i+1);
end;
readln;
end.
Số phần tử của A là:
(10-0)+1=11(phần tử)
11 phần tử