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;

}

tách ra nhân từng đơn thức với đa thức là dc bạn ạ

Bạn giải chi tiết giúp mik nha

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 

  t:=t+a[i];

writeln(t);

readln;

end.

Bài 1: 

function canbac2(x:longint):real;

begin

canbac2:=sqrt(x);

end;

Bài 2: 

function tong(n:longint):longint;

var s,i:longint;

begin

s:=0;

for i:=1 to n do 

  s:=s+i;

tong:=s;

end;

Bài 1: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 372 do 

 if i mod 3=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var n,i,t,x,y,d:integer;

st:string;

begin

clrscr;

write('Nhap n='); readln(n);

str(n,st);

t:=0;

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],x,y);

t:=t+x;

end;

writeln(t);

readln;

end.

Gọi x₁,x₂ là các nghiệm của phương trình đã cho

Áp dụng hệ thức Vi-et,ta có :

x₁ + x₂ = -5 ; x₁x₂ = -1

gọi y₁,y₂ là các nghiệm của phương trình phải lập,ta được :

y₁ + y₂ = x₁⁴ + x₂⁴ , y₁y₂ = x₁⁴x₂⁴

Ta có : x₁² + x₂² = ( x₁ + x₂ )² - 2x₁x₂ = 25 + 2 - 27

Do đó : y₁ + y₂ = x₁⁴ + x₂⁴ = ( x₁² + x₂² )² - 2x₁²x₂² = 729 - 2 = 727

y₁y₂ = ( x₁x₂ )⁴ = 1

Từ đó pt phải lập có dạng : y² - 727y + 1 = 0

Ta co: P = -1 <0 

=> (1) có 2 nghiệm phân biệt khác dấu 

Gọi hai nghiệm đó là \(x_1;x_2\)

=> \(x_1+x_2=-5;x_1.x_2=-1\)

Ta có: \(\left(x_1.x_2\right)^4=\left(-1\right)^4=1\)

\(\left(x_1\right)^4+\left(x_2\right)^4=\left(x_1^2+x_2^2\right)^2-2x_1^2x_2^2=\left[\left(x_1+x_2\right)^2-2x_1x_2\right]^2-2x_1^2x_2^2\)

\(=\left[\left(-5\right)^2-2.\left(-1\right)\right]^2-2.\left(-1\right)^2\)

\(=727\)

=> Phương trình có các nghiệm lũy thừa bậc 4 của các nghiệm phương trình (1) là: 

\(x^2-727x+1=0\)