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.

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

Answer 2

Конечно, вот пример программы на языке Паскаль для вычисления суммы данной последовательности:

pascalCopy code
program SumCalculation;

var
  K, P, i: integer;

begin
  writeln('Введите значение K:');
  readln(K);
  
  P := 0;
  for i := 4 to K do
  begin
    P := P + i;
  end;
  
  writeln('Сумма равна: ', P);
end.

Эта программа запрашивает у пользователя значение K, а затем использует цикл для вычисления суммы последовательности.