Предмет: Информатика, автор: allat0409

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

Ответы

Автор ответа: XGuruX
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.


Похожие вопросы