Предмет: Информатика,
автор: vallirik
Составьте программу на языке Паскаль для вычисления суммы:
Р = 4 + 7 +10 + 13. . . + K , где P > 4
LRSM:
На вход подаётся K, как я понимаю?
Ответы
Автор ответа:
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.
Примеры работ:
Приложения:
![](https://files.topotvet.com/i/a83/a83889b397476ec9bffba46ede87ecf1.jpg)
![](https://files.topotvet.com/i/446/446da33242f7545d0377cddcd4a5f925.jpg)
Похожие вопросы
Предмет: Русский язык,
автор: Жечё
Предмет: Русский язык,
автор: AlinaKotova123
Предмет: Русский язык,
автор: BodiPer
Предмет: Математика,
автор: рпщппшмпр
Предмет: Геометрия,
автор: dima10654