Предмет: Информатика,
автор: allat0409
напиши рекурсивную подпрограмму , которая вычисляет сумму S(n)=1+3+5+...+(2n-1)
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: 18092007rr
Предмет: Геометрия,
автор: ghtf31
Предмет: История,
автор: aynurramazanova52
Предмет: Геометрия,
автор: ДораПуть
Предмет: Алгебра,
автор: Anysi