Phenomenonn
06-10-2011, 12:08
Да се напише програма, която по дадено естествено число n(n>1), пресмята сумата
S=(1/1)+(1/2)[на квадрат]+....(1/n)[на n-степен]
program asdfadsfa;
var
i, n: integer;
S: real;
function Stepen(a: real; b: integer) : real;
var
i: integer;
s: real;
begin
s:=1;
for i:=1 to b do
s:=s*a;
Stepen:=s;
end;
begin
write('n=');readln(n);
while n<=1 do
begin
writeln('n should an integer bigger than 1');
writeln('n='); readln(n);
end;
S:=0;
for i:=1 to n do
S:=S+(1/Stepen(i,i));
write('S=', S:2:2);
readln;
end.