Question

Bạn nào giúp mình thử giải Bài này đi:R = 1^n + 2^n + 3^n + … + n^n .Số n nhập từ bàn phím.thanks you.

Answer 1

program bt;

uses crt;

var n,i:longint;

R:real;

begin

clrscr;

write('nhap n:');readln(n);

R:=0;

for i:=1 to n do

R:=R+exp(n*ln(i));

write('R=',R:2:0);

readln;

end.

chúc bạn học tốt

Answer 2

const
fi='tinhr.inp';
fo='tinhr.out';
var
f:text;
n,i:longint;
r:real;
begin
assign(f,fi);
reset(F);
read(f,n);
close(F);
assign(f,fo);
rewrite(F);
r:=0;
for i:= 1 to n do
r:=r+exp(n*ln(i));
write(f,'r=',r:2:0);
close(F);
end.