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))

 

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