Buna, acesta este subprogramul: function suma (x:integer):integer; var s:integer; begin s:=0; while(x<>0) do begin s:=s+x mod 10; x:=x div 10; end; suma:=s; end;
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile v-au fost de ajutor. Dacă aveți întrebări suplimentare sau aveți nevoie de asistență, nu ezitați să ne contactați. Revenirea dumneavoastră ne-ar onora, așa că nu uitați să ne adăugați la favorite!
