Advertisement
Guest User

Untitled

a guest
Apr 26th, 2017
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.41 KB | None | 0 0
  1. var
  2.     first, n, delta : integer;
  3.  
  4. procedure x(collected, left, ith : integer);
  5. begin
  6.     if left = 0 then begin
  7.         write('n-nyj chlen = ', ith, ', summa = ', collected + ith);
  8.         exit;
  9.     end;
  10.     x(collected + ith, left - 1, ith + delta);
  11. end;
  12.  
  13. begin
  14.     // 1-e chislo - pervyj chlen
  15.     // 2-e chislo - raznost
  16.     // 3-e chislo - n
  17.     read(first, delta, n);
  18.     x(0, n - 1, first);
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement