Jater

Kristina_for

Dec 6th, 2012
104
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {a)      Дано натуральное число n. Получить f0 f1...fn,где
  2.         1       1            1
  3.  fi = —---- + —---- +...+ —------
  4.       i^2+1   i^2+2       i^2+i+1}
  5.  
  6. var
  7.     i,n:integer;f,s:real;
  8. begin
  9.     write('Vvedi granicu: ');
  10.     readln(n);
  11.     f:=0;
  12.     for i:=0 to n do
  13.     begin
  14.         s:=1/((i*i)+i+1);
  15.         f:=f+s;
  16.         write('f(':5,i,')=',f:8:6,'; ');
  17.     end;
  18.     readln;
  19. End.
RAW Paste Data