Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- first, n, delta : integer;
- procedure x(collected, left, ith : integer);
- begin
- if left = 0 then begin
- write('n-nyj chlen = ', ith, ', summa = ', collected + ith);
- exit;
- end;
- x(collected + ith, left - 1, ith + delta);
- end;
- begin
- // 1-e chislo - pervyj chlen
- // 2-e chislo - raznost
- // 3-e chislo - n
- read(first, delta, n);
- x(0, n - 1, first);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement