Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ana;
- var i,j,im1,im2,br1,br2,x,n:integer;
- s:real;
- begin
- readln(x,n);
- im2:=1;
- br2:=1;
- for i:=1 to n do
- begin
- im2:=im2*x;
- br2:=br2*i;
- end;
- //ovde sam radio odmah i ovo x na N i N! a moglo je i sa dve petlje
- br1:=0;
- s:=0;
- for i:=1 to n do
- begin
- im1:=1;
- for j:=1 to i do im1:=im1*i*i;
- br1:=br1+i;
- s:=s+(im1+im2)/(br1+br2);
- end;
- writeln(s:2:5);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement