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

[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:

Используя формулу для нахождения суммы первых членов арифметической прогрессии:  , где — первый член прогрессии, — второй член прогрессии, — член под номером (в нашем случае — это K)

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

 

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