Guest User

Untitled

a guest
Jul 23rd, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. program lab;
  2.  
  3. var
  4. count: integer;
  5.  
  6. function root(n: integer): real;
  7. begin
  8. if n=1 then
  9. root := 1.0
  10. else
  11. root := sqrt(n+root(n-1));
  12. end;
  13.  
  14. begin
  15. readln(count);
  16. write('Answer is ');
  17. writeln(root(count));
  18. readln;
  19. end.
Add Comment
Please, Sign In to add comment