Pascal

[Phenomenonn]

Да се напише програма, която по дадено естествено число n(n>1), пресмята сумата
S=(1/1)+(1/2)[на квадрат]+....(1/n)[на n-степен]

[Chacho]

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.