Составьте программу на языке Паскаль для вычисления суммы:
Р = 4 + 7 +10 + 13. . . + K , где P > 4
Ответы
Ответ дал:
0
Ответ:
- 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.
Примеры работ:
Приложения:
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад