Advertisement
Guest User

Untitled

a guest
Dec 1st, 2015
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.40 KB | None | 0 0
  1. program ana;
  2.  
  3. var i,j,im1,im2,br1,br2,x,n:integer;
  4. s:real;
  5.  
  6. begin
  7.  
  8. readln(x,n);
  9. im2:=1;
  10. br2:=1;
  11. for i:=1 to n do
  12. begin
  13. im2:=im2*x;
  14. br2:=br2*i;
  15. end;
  16. //ovde sam radio odmah i ovo x na N i N! a moglo je i sa dve petlje
  17. br1:=0;
  18. s:=0;
  19. for i:=1 to n do
  20. begin
  21. im1:=1;
  22.  
  23. for j:=1 to i do im1:=im1*i*i;
  24.  
  25. br1:=br1+i;
  26.  
  27. s:=s+(im1+im2)/(br1+br2);
  28.  
  29. end;
  30.  
  31. writeln(s:2:5);
  32. readln;
  33.  
  34. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement