Найти сумму всех нечетных чисел от 1 до n

@dusya9992 · Регистрация: 22.06.2010

Студворк — интернет-сервис помощи студентам

Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.
Дано натуральное число n. Найти сумму всех нечетных чисел от 1 до n.

@Rockedit · 26.08.2010, 09:00

Примерно так

Pascal

function sum(n: integer) : integer;
Begin
  if n > 0 then
  Result := n + sum(n-2) else Result := n + 1;
End;
  var
 n,s: integer;
begin
 Writeln('n:');
 Readln(n);
 if n mod 2 = 0 then
   n:= n-1;
 s:=sum(n);
 WriteLn(s);
 readln;
end.

@Puporev · 26.08.2010, 09:14

Pascal

uses crt;
function Summa(k:integer):longint;
begin
if k<1 then exit;{если меньше 1}
if k mod 2=0 then k:=k-1;{если четное, уменьшим на 1}
if k=1 then Summa:=1
else Summa:=Summa(k-1)+k;
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write('Сумма нечетных от 1 до ',n,' = ',Summa(n));
readln
end.

Добавлено через 2 минуты

Сообщение от Rockedit

Result := n + sum(n-2) else Result := n + 1

Ну не пашет ваш result в Паскале! Достали уже. Не можете писать на Паскале, не пудрите мозг новичкам.

@dusya9992 0 / 0 / 0 Регистрация: 22.06.2010 Сообщений: 16
		1
	Найти сумму всех нечетных чисел от 1 до n 26.08.2010, 08:44. Показов 5945. Ответов 2 Метки нет (Все метки) Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи. Дано натуральное число n. Найти сумму всех нечетных чисел от 1 до n. 0

Опции темы

Найти сумму всех нечетных чисел от 1 до n

Решение