Question

Найти сумму пятнадцати нечетных чисел натурального ряда, начиная с N>0. N вводится с клавиатуры

Answer 1

var
  i, n: byte;
  s: integer;
begin
  readln(n);
  for i := n to n + 15 * 2 - 1 do
    if (i mod 2 = 1) then
      s := s + i;
  writeln(s);
end.

Answer 2

Возможно не самое лучшее решение, зато тут нет циклов и всего одна переменная :)
var n:integer;
begin
Writeln('Задайте N');
Readln(n);
if n mod 2 = 1 then 
n:=n+14*n+2*14;
else 
n:=n+1+14*n+2*14;
writeln('Сумма чисел:')
write(n);
readln;
end.

Answer 3

Чтобы найти сумму пятнадцати нечетных чисел натурального ряда, начиная с заданного числа N, можно воспользоваться следующей формулой:

Сумма = N + (N + 2) + (N + 4) + ... + (N + 28) + (N + 30) + (N + 32)

Эту формулу можно упростить, заметив, что каждое следующее число является предыдущим числом, увеличенным на 2. Таким образом, мы можем записать это как:

Сумма = 15N + 2 + 4 + 6 + ... + 28 + 30 + 32

Мы знаем, что сумма арифметической прогрессии равна полусумме первого и последнего члена, умноженной на количество членов. В данном случае у нас 15 членов, и первый член равен N, а последний равен N + 30. Поэтому мы можем записать:

Сумма = (15N + N + N + 30) * 15 / 2

Сумма = (17N + 30) * 15 / 2

Теперь мы можем вычислить сумму, используя введенное значение N:

N = int(input("Введите значение N: ")) сумма = (17 * N + 30) * 15 / 2 print("Сумма пятнадцати нечетных чисел, начиная с", N, "равна", сумма)

При вводе значения N программа вычислит и выведет на экран сумму пятнадцати нечетных чисел, начиная с заданного числа N.