Advertisement
Guest User

Untitled

a guest
Oct 19th, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.07 KB | None | 0 0
  1. program bt8;
  2. uses crt;
  3. var i,N,M:integer;
  4.         A:array[1..100] of integer  ;
  5.         F,Y:text;
  6.         procedure Khaibao;
  7.         Begin
  8.         Assign(F,'D:\69\INPUT.INP');
  9.         Assign(Y,'D:\69\OUTPUT.OUT');
  10.         Reset(F);
  11.         Rewrite(Y);
  12.         Readln(F,N,M);
  13.         eND;
  14.         procedure Haha(r:integer;j:integer;S:integer);
  15.         Begin
  16.  
  17.                 For r:=r to  ((N-S) div j) do
  18.                         Begin
  19.                         A[j]:=r;
  20.  
  21.                         If j>1 then Begin  Haha((r+1),(j-1),(S+r)) end
  22.                         else
  23.                         Begin
  24.                         If (S+r=N) then
  25.                         Begin
  26.                          Write(Y,N,' -) ');
  27.                         For i:=M downto 1 do Write(Y,'(',A[i],') ');
  28.                              Writeln(Y);
  29.  
  30.                                 end;
  31.                         end;
  32.                         End;
  33.         End;
  34. Begin
  35.         clrscr;
  36.         Khaibao;
  37.         Haha(1,M,0);
  38.         Close(F);
  39.         Close(Y);
  40.  
  41.         Readln;
  42. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement