vinarsky_evgeny

Untitled

Nov 22nd, 2015
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.28 KB | None | 0 0
  1. {Винарский}
  2. program z_12_30(input,output);
  3.  
  4. function g(m: integer): integer; forward;
  5.  
  6. function f(n: integer): integer;
  7. begin
  8. if(n=0) then f:=1
  9. else f:=n+g(n-1);
  10. end;
  11.  
  12. function g(m: integer): integer;
  13. begin
  14. if(m=0) then g:=1
  15. else g:=f(m-1)+(m-1);
  16. end;
  17.  
  18. begin
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment