Những câu hỏi liên quan
Thanh Thanh
Xem chi tiết
Luân Trần
19 tháng 3 2020 lúc 16:34
https://i.imgur.com/LRm4MuE.png
Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
19 tháng 3 2020 lúc 20:09

uses crt;
var n,k,d:longint;
st:string;
begin
clrscr;
write('n='); readln(n);
write('k='); readln(k);
if (n>=0) and (k>=0) then
begin
str(n,st);
d:=length(st);
if (k>d) or (k=0) then writeln('-1')
else writeln(st[k]);
end
else writeln('vui long nhap hai so tu nhien');
readln;
end.

Bình luận (1)
 Khách vãng lai đã xóa
Phan Tiến Đạt
19 tháng 3 2020 lúc 21:19

program an_danh;
uses crt;
var n,k:longint;
ss: integer;
n2,k2: string;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
str(n,n2);
ss:= length(n2);
if (k <= ss) or (k = 0) then write('Ket qua: ',n2[k])
else write('Ket qua: -1');
readln
end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyen Le
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 1 2021 lúc 13:22

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.

Bình luận (0)
Bùi Anh Tuấn
19 tháng 1 2021 lúc 20:11

\(\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\)

Bình luận (0)
Trần Ngọc Nguyên Khánh
Xem chi tiết
Trần Ngọc Nguyên Khánh
24 tháng 4 2023 lúc 17:36

Ai giải giúp mik ạ

Bình luận (0)
Phan Thị Kim Anh
Xem chi tiết
Thị Thu Hiền 6 Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:51

 

 

#include <bits/stdc++.h>
using namespace std;
const long long maxn=1e5+10;
long long a[maxn],i,n,x,l,r,m;
//chuongtrinhcon
long long tknp(long long a[],long long l,long long r,long long x)
{
    while (l<=r)
    {
        long long g=(l+r)/2;
        if (a[g]==x) return(g);
        if (x>a[g]) l=g+1;
        else r=g-1;
    }
    return(-1);
}
int main()
{
    freopen("tknp.inp","r",stdin);
    freopen("tknp.out","w",stdout);
    cin>>n>>x;
    for (i=1; i<=n; i++)
        cin>>a[i];
    cout<<tknp(a,1,n,x);
    return 0;
}

 

Bình luận (0)
Linh Bùi
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 11:47

tối đa là N lần

Bình luận (0)
11111
Xem chi tiết
Linh ???
Xem chi tiết
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:32

Làm bằng pascal thì những bài như thế này thì test lớn chạy không nổi đâu bạn

#include <bits/stdc++.h>

using namespace std;

long long n,a,b;

int main()

{

cin>>n;

a=1;

while (pow(a,3)<=n) 

{

a++;

}

if (pow(a,3)==n) cout<<"YES";

else cout<<"NO";

cout<<endl;

b=1;

while (pow(5,b)<=n) do b++;

if (pow(5,b)==n) cout<<"YES";

else cout<<"NO";

cout<<endl<<pow(n,n)%7;

return 0;

}

Bình luận (1)