👤
BOGDANGUTALIUCID
a fost răspuns

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 :

GRIGORE2018ID

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 oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari