МК
Маруся К
Какую сумму вычисляет данная процедура? Внутри...
Procedure S (z,x:Integer; Var r:Integer);
Begin
If z>0 then
Begin
s(z-1,x+1,r);
r:=r+x;
end
else r:=0;
end;
Procedure S (z,x:Integer; Var r:Integer);
Begin
If z>0 then
Begin
s(z-1,x+1,r);
r:=r+x;
end
else r:=0;
end;
Это один из самых хитрозадых способов вычисления суммы арифметической прогрессии (х, х+1, х+2, ..х+z), который я когда-либо видел.