Question

ПАСКАЛЬ ABC версия 3.0 Дано натуральное число N. Вычислить сумму 7+12+17...+N

Answer 1

Var
  n,i,s:integer;
begin
  Write('n='); Read(n);
  i:=7; s:=0;
  while i<=n do begin
    s:=s+i;
    i:=i+5
    end;
  Writeln('S=',s)
end.

Answer 2

Для вычисления суммы заданной последовательности 7, 12, 17, ..., N можно воспользоваться формулой для суммы арифметической прогрессии.

Общий член данной прогрессии можно выразить как: a(n) = 7 + (n-1)*5, где n - номер члена прогрессии.

Сумма первых n членов арифметической прогрессии может быть вычислена по формуле: S(n) = (n/2)*(a(1) + a(n)), где S(n) - сумма первых n членов прогрессии, a(1) - первый член прогрессии, a(n) - n-ый член прогрессии.

В данной последовательности первый член равен 7, а разность между соседними членами равна 5.

Подставим значения в формулу и вычислим сумму:

a(n) = 7 + (n-1)5 S(n) = (n/2)(a(1) + a(n))

В вашем случае a(1) = 7. Найдем значение n в зависимости от заданного числа N: n = (N - 7) / 5 + 1.

Подставим все значения в формулу:

n = (N - 7) / 5 + 1 S(n) = (n/2)*(7 + 7 + (n-1)*5)

Теперь можно написать код на языке Паскаль, решающий данную задачу:

pascalCopy code
program SumOfSequence;
var
  N, n: Integer;
  S: Integer;
begin
  Write('Введите число N: ');
  Readln(N);

  n := (N - 7) div 5 + 1;
  S := (n * (7 + 7 + (n - 1) * 5)) div 2;

  WriteLn('Сумма последовательности равна ', S);
end.

После выполнения программы будет выведено значение суммы последовательности.