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

Question

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

andreykakachnov · 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.Примеры работ:...

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

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