Question

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

Answer 1

Ответ:

var K, P, i: integer;

begin

read(K);

i := 1;

while i < K do

begin

i := i + 3;

P := P + i;

end;

Print(P);

end.

или:

begin

var K := ReadInteger('K:');

Print((4+K)/2*((K-4)/3+1));

end.