Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program bt8;
- uses crt;
- var i,N,M:integer;
- A:array[1..100] of integer ;
- F,Y:text;
- procedure Khaibao;
- Begin
- Assign(F,'D:\69\INPUT.INP');
- Assign(Y,'D:\69\OUTPUT.OUT');
- Reset(F);
- Rewrite(Y);
- Readln(F,N,M);
- eND;
- procedure Haha(r:integer;j:integer;S:integer);
- Begin
- For r:=r to ((N-S) div j) do
- Begin
- A[j]:=r;
- If j>1 then Begin Haha((r+1),(j-1),(S+r)) end
- else
- Begin
- If (S+r=N) then
- Begin
- Write(Y,N,' -) ');
- For i:=M downto 1 do Write(Y,'(',A[i],') ');
- Writeln(Y);
- end;
- end;
- End;
- End;
- Begin
- clrscr;
- Khaibao;
- Haha(1,M,0);
- Close(F);
- Close(Y);
- Readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement