Question

Составьте программу на языке Паскаль для вычисления суммы: Р = 4 + 7 +10 + 13. . . + K , где P>4

Answer 1

[any] Pascal:

• var K, P, i: integer;
• begin
•  Read(K);
•  i := 1;
•  while i < K do
•  begin
•    i := i + 3;
•    P := P + i;
•  end;
•  Write(P);
• end.

PascalABC.NET:

Используя формулу для нахождения суммы первых $n$ членов арифметической прогрессии:  $S_n = \frac{a_1 + a_n}{2} * (\frac{a_n - a_1}{a_2 - a_1} + 1)$, где $a_1$ — первый член прогрессии, $a_2$ — второй член прогрессии, $a_n$ — член под номером $n$ (в нашем случае $a_n$ — это K)

• ##
• var K := ReadInteger('K:');
• Print('S:', (4+K)/2*((K-4)/(7-4)+1))

 

Пример работы:

Answer 2

Конечно, вот пример программы на языке Паскаль для вычисления указанной суммы:

pascalCopy code
program SumCalculation;

var
  K, P, i: Integer;

begin
  writeln('Введите значение K (K должно быть больше 4): ');
  readln(K);

  if K <= 4 then
  begin
    writeln('Значение K должно быть больше 4.');
    exit;
  end;

  P := 0;
  i := 4; // Начальное значение
  while i <= K do
  begin
    P := P + i;
    i := i + 3; // Шаг последовательности
  end;

  writeln('Сумма P = ', P);
end.

В этой программе пользователь вводит значение K, и программа вычисляет сумму P по заданной последовательности, где каждое следующее число больше предыдущего на 3.