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

Question

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

Kaisool · Answer

var K, P, i: integer;beginread(K);i := 1;while i < K dobegini := i + 3;P := P + i;end;Print(P);end.

или:

beginvar K := ReadInteger('K:');Print((4+K)/2*((K-4)/3+1));end.

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