Question

напиши рекурсивную подпрограмму , которая вычисляет сумму S(n)=1+3+5+...+(2n-1)

Answer 1

procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;

begin
writeln('vvedite n');
readln(n);
s(n,null);
end.

Answer 2

Но при первом вызове подпрограммы второй параметр должен быть обязательно равен 0