Help!
Știe cineva cum se rezolvă?
Anexe:
Răspunsuri la întrebare
Răspuns de
0
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;
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;
Alte întrebări interesante
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Biologie,
8 ani în urmă
Ed. muzicală,
8 ani în urmă
Geografie,
8 ani în urmă
Limba română,
9 ani în urmă
Limba română,
9 ani în urmă