Những câu hỏi liên quan
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)
Nguyễn Văn A
Xem chi tiết
Nguyễn Trung Hiếu
9 tháng 5 2019 lúc 16:32

uses crt;
var i,n,k,m: longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
i:=i+1;
a[i]:=m;
end;
if k<i then write(a[k]) else write('Ko tim duoc');
readln
end.

Bình luận (0)
Anh Thư Nguyễn
Xem chi tiết
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)
Hau Thai
Xem chi tiết
Noob Dino 2K8 ( ɻɛɑm rob...
6 tháng 6 2021 lúc 20:56

..................

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)
lê võ ngân duyên
Xem chi tiết