👤

Elaborati un program Pascal care va calcula toate descompunerile posibile
(ex :n=e programul va afișa 1 +1 +1 =3 1+2=3 2+1=3)


Răspuns :

procedure FindSum(N : Integer; S : String);

begin

 if N = 0 then

   WriteLn(S)

 else

   for var i := N downto 1 do

     if Length(S) = 0 then

       FindSum(N - i, IntToStr(i))

     else

       FindSum(N - i, S + '+' + IntToStr(i))

end;

 

begin

 var N := ReadInteger('N =');

 FindSum(N, '');

end.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!


En Studentsy: Alte intrebari