Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2016
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.22 KB | None | 0 0
  1. var i, n: integer;
  2. var S: real;
  3. begin
  4.   write('Введите n: ');
  5.   readln(n);
  6.   S := 0;
  7.   for i:=1 to n do
  8.   begin
  9.     S := S + 1/(i * (i+1));
  10.   end;  
  11.   writeln('Результат выполнения: ', S);
  12. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement