PDA

View Full Version : Pascal



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

Chacho
06-10-2011, 12:49
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.