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))
[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))Пример работы: