Предмет: Информатика, автор: vallirik

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


LRSM: На вход подаётся K, как я понимаю?
vallirik: ¯\_(ツ)_/¯
LRSM: Какой класс?
vallirik: 10

Ответы

Автор ответа: LRSM
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.

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

Приложения:
Похожие вопросы
Предмет: Русский язык, автор: AlinaKotova123
Предмет: Математика, автор: рпщппшмпр