Архив форумов ЦИТФорума

[yuranich]

входной пар-р: целое число
выходной: все возможные разлож. этого числа.

пример:
4
3+1=4
2+2=4
2+1+1=4
1+1+1+1=4

[GREA]

И что в этом интересного? Поди-ка в универе лаба?

[yuranich]

Да какая мля лаба. ты где лабы по 5 строк видел?
именно задачка и задачка минут на 5,
и вполне интересная имхо, вот только догнать не могу.

[GREA]

-

[ncik]

nachni s konca.
1+1+1+1+...+1=N
a dalshe delai vsevozmojnie summi.

[Sclis]

Delphi:
...
const
co = 5
var
s: string;
a: array[0..co] of integer;

procedure f(n,k, l: Integer);
var j,i: integer;
begin
if n=0 then
begin
s:='';
for j:=0 to l-1 do
s:=s+IntToStr(a[j])+' ';
ShowMessage(s);
end else
for i:=n downto 1 do
if k>i then
begin
a[l]:=i;
F(n-i, i+1, l+1) ;
end;
end;

...
F(co,co+1,0);

Положишь $5 в конверте под урну на ближайшей автобусной остановке