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.

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