Viết chương trình tính căn bậc n của x

2 câu trả lời

Program Hotboy; 

Uses crt; 

Var n,x,s : real;

Begin

Clrscr;

S:=0; 

Write('nhap so x'); readln(x);

Write('nhap can bac n') ; readln(n);

S:=Exp(ln(x)*1/n);

Writeln('can bac n cua x la',S); 

Readln

End.

Program CHUONG_TRINH_BAC_NHAT:

Uses crt; 

Var n,x,y: real;

Begin

Clrscr;

S:=0; 

Write('nhap so x'); readln(x);

Write('nhap can bac n') ; readln(n);

Y:=Exp(ln(x)*1/n);

Writeln('can bac n cua x la',Y); 

Readln

End.