Question

Написать программу вычисления суммы кубов всех четных чисел от 4 до 14. Pascal

Answer 1

Ответ:

Program p1;

Var i,  k: integer;

Begin

k:=0;

For i:=4 to 14 do begin

if (i mod 2 =0) then k:=k+i*i*i;

end;

Writeln('Сумма кубов всех четных чисел от 4 до 14 - ',k);

End.

Answer 2

Конечно, вот пример программы на Pascal, которая вычисляет сумму кубов всех четных чисел от 4 до 14:

pascalCopy code
program SumOfEvenCubes;

var
  i, num, sum: integer;

begin
  sum := 0;
  
  for i := 4 to 14 do
  begin
    if i mod 2 = 0 then
    begin
      num := i * i * i;
      sum := sum + num;
    end;
  end;

  writeln('Сумма кубов четных чисел от 4 до 14: ', sum);
end.

Эта программа использует цикл for, чтобы перебрать числа от 4 до 14, и проверяет, является ли каждое число четным с помощью оператора mod. Если число четное, то его куб добавляется к переменной sum. В конце программы выводится результат – сумма кубов четных чисел.