Версия для печати темы

Автор: Kolyancz 29.12.2008 21:19

Нужно написать программу разложения числа на слагаемые.

var
  n: integer;
  c: array[1..100] of integer;
  print: boolean;

const
diapazon:set of byte=[1..40];

procedure find(num,k,len: integer);
const sign: array[boolean] of char = ('+', ' ');
var
  i: integer;
begin
  if num=0 then begin
    print := true;
    for i := 1 to pred(len) do
      if not (c[i] in diapazon) then print := false;

    if print then begin
      for i:=1 to len-1 do write(c[i], sign[i = len - 1]); writeln 
    end;
  end
  else begin
    for i:=1 to k do
      if num-i>=0 then begin
        c[len]:=i;
        find(num-i,i,len+1);
      end;
  end;
end;
begin
  read(n);
  find(n,n,1);
end. 

Автор: Lapp 30.12.2008 5:53

Измени вывод, вот так:

      for i:=len-1 downto 1 do write(c[i], sign[i = 1]);

Автор: Kolyancz 31.12.2008 4:51

Цитата(Lapp @ 29.12.2008 23:53)

      for i:=len-1 downto 1 do write(c[i], sign[i = 1]);