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);
  
  if K <= 4 then
    writeln('K должно быть больше 4.')
  else
  begin
    P := 0;
    for i := 4 to K do
    begin
      P := P + i;
    end;
    
    writeln('Сумма P = ', P);
  end;
  
  readln;
end.

Программа запрашивает у пользователя значение K, а затем считает сумму ряда 4 + 7 + 10 + ... + K и выводит результат. Проверка на то, что K больше 4, также присутствует в коде.