viết chương trình nhập 1 dãy số nguyên tìm vị trí đầu tiên x trong dãy số nếu không tìm thấy thì thông báo không có. giúp mik với ạ
Viết chương trình nhập vào 1 dãy số tiếp theo nhập vào 1 số k , hãy kiểm tra k có trong dãy số vừa nhập hay ko?Nếu có thì thông báo vị trí của k, nếu ko thì thông báo k ko có trong dãy số
Viết chương trình nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không, nếu có thì đưa ra màn hình vị trí của phần tử đầu tiên và đếm xem có bao nhiêu phần tử bằng k hoặc thông báo không có.
uses crt;
var a:array[1..1000]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i]=k then
begin
writeln(i);
break;
end;
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
if dem>0 then writeln('Co ',dem,' phan tu bang ',k)
else writeln('Khong co phan tu nao bang ',k);
readln;
end.
Nhập vào số nguyên dương n (0<N<100) và dãy n số nguyên dương. Viết chương trình in ra các số là số chính phương và các số là số nguyên tố có trong dãy, nếu dãy không có số chính phương và không có số nguyên tố thì thông báo ‘dãy không có số chính phương, nguyên tố'
ngôn ngữ pascal (ko dùng hàm).
Bài toán. Cho dãy số gồm N phần tử là các số nguyên A1, A2,..., AN; số nguyên k. Hãy viết thuật toán tìm số k có trong dãy đã cho hay không? Nếu tìm thấy thì thoát và thông báo chỉ số i mà có Ai = k, nếu tìm thấy thì thông báo là không có số k trong dãy. (Lưu ý thực hiện đầy đủ 3 quy trình: 1. Xác định bài toán 2. Nêu ý tưởng (nếu trình bày được quá trình giải toán càng tốt sẽ được cộng thêm điểm) 3. Viết thuật toán (có thể dùng liệt kê hoặc vẽ sơ đồ khối)
Bài toán. Cho dãy số gồm N phần tử là các số nguyên A1, A2,..., AN; số nguyên k. Hãy viết thuật toán tìm số k có trong dãy đã cho hay không? Nếu tìm thấy thì thoát và thông báo chỉ số i mà có Ai = k, nếu tìm thấy thì thông báo là không có số k trong dãy.
(Lưu ý thực hiện đầy đủ 3 quy trình:
1. Xác định bài toán
2. Nêu ý tưởng (nếu trình bày được quá trình giải toán càng tốt sẽ được cộng thêm điểm)
3. Viết thuật toán (có thể dùng liệt kê hoặc vẽ sơ đồ khối)
Program Hoc24;
var a: array[1..32000] of integer;
d,i,n,x: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
write('Nhap so can tim: '); readln(x);
d:=0;
for i:=1 to n do if a[i]=x then d:=d+1;
if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i,x,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap so can tim: '); readln(x);
kt:=0;
for i:=1 to n do
if a[i]=x then kt:=1;
if kt=0 then writeln(x,' khong co trong day')
else writeln(x,' co trong day');
readln;
end.
Python:1. Cho dãy số nguyên A gồm M phần tử. Hãy lập trình nhập vào dãy số A, tìm xem có hay không phần tử có giá trị bằng K, nếu có thông báo ra vị trí bé nhất của phần tử đó. Với K được nhập vào từ bàn phím.
vi du: input
5 2
3 5 2 8 2
output
CO K O VI TRI 3
uses crt;
var a:array[1..255]of integer;
i,n,k,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
kt:=0;
for i:=1 to n do
if a[i]=k then kt:=1;
if kt=0 then writeln(k,' khong co trong day')
else writeln(k,' co trong day');
readln;
end.
\(\dfrac{s}{13}=\dfrac{2s}{3-vn}+\dfrac{2s}{3+vn}\)
\(\dfrac{s}{13}=\dfrac{2s\left(3+vn\right)+2s\left(3-vn\right)}{9-vn^2}\)
\(\dfrac{s}{13}=\dfrac{12s}{9-vn^2}\)
\(s\left(9-vn^2\right)=12s\cdot13\)
\(s\left(9-vn^2\right)=156s\)
\(9-vn^2=156\)
\(vn^2=-147\)
câu 1 : viết chương trình để:
-Nhập một dãy các số nguyên gồm N phần tử ( ko quá 60 kí tự);
-Nhập 1 số nguyên K từ bàn phím;
-Thông báo ra màn hình số lượng các phần tử trong dãy bằng K
Câu 2: viết chương trình để :
-Nhập một xâu A ( không quá 130 kí tự ) từ bàn phím ;
-Tạo xâu mới B gồm các kí tự trong xâu A nhưng không có kí tự đầu và cuối ;
- In kết quả các xâu trên ra màn hình .
mọi người giúp em với ạ . em đang cần gấp ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,k,dem,x;
int main()
{
cin>>n;
cin>>k;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==k) dem++;
}
cout<<dem;
return 0;
}