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.
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;
}
c++:
#include <iostream>
using namespace std;
int main(){
int y;
cin >> y;
int i = 1;
int luythua = 1;
while(i<=y){
luythua = luythua *i;
i = i+1;
}
cout << luythua;
}
#include <bits/stdc++.h>
using namespace std;
long long n,x;
int main()
{
cin>>n>>x;
cout<<pow(n,x);
return 0;
}
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5
uses crt;
var n,k:longint;
{----------------chuong-trinh-con-------------------}
function gthua(var n:longint):real;
var i:longint;
gt:real;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
gthua:=gt;
end;
{----------------chuong-trinh-chinh------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap k='); readln(k);
until (n>0) and (k>0) and (k<=n);
writeln(n,'!=',gthua(n):4:2);
writeln('C=',gthua(n)/(gthua(k)*gthua(n-k)):4:2);
readln;
end.
Dế Mèn phiêu lưu kí là một truyện viết cho thiếu nhi rất đặc sắc của Tô Hoài. Trong truyện, tác giả đã xây dựng nhân vật chính là chú Dế Mèn với những nét tính cách, phẩm chất thật đáng yêu, đáng quý. Nhưng nhân vật mà em ấn tượng nhất là chú dễ choắt. Dù chỉ xuất hiện ở những phần đầu câu chuyện nhưng những câu nói cuối cùng của chú trước khi mất nhưng nó làm cho mỗi độc giả mãi không thể nào quên. Cậu là một người có thân hình nhỏ bẻ nhưng khá am hiểu sự đời, cách đối đãi với mọi người xung quanh. Bằng chứng là câu nói cuối cùng của Dế Choắt ở đời mà có thói hung hăng bậy bạ, có óc mà không biết nghĩ, sớm muộn rồi cũng mang vạ vào mình. Chỉ vài câu thôi, nhưng nó đã làm thay đổi một Dế Mèn kiêu căng, ngạo mạn lúc bấy giờ. Vậy mỗi người chúng ta hãy học theo Dễ Choắt, đừng bao giờ kiêu căng, làm việc bậy bạ mà ảnh hưởng đến cả mình, cả người khác
like 
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<0) t+=x;
}
cout<<t;
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.