Question

Cho số tự nhiên n và x, hãy lập trình để tính: 

a/ n^x

b/ S= 1 + 1/2² + 1/3² + … + 1/n² +… cho đến khi  1/n² < 2 x 10^-4

Answer 1

a) uses crt;

var n,x,i:longint;

lt:real;

begin

clrscr;

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

write('Nhap so mu x='); readln(x);

lt:=1;

for i:=1 to x do 

  lt:=lt*n;

writeln(n,'^',x,'=',lt:0:0);

readln;

end.