Question

Составить программу вычисления суммы кубов чисел кратных 5, на промежутке от 15 до 50. (паскаль) Отдам 300 баллов

Answer 1

Ответ:

//PascalABC.NET 3.7.2

##

Range(15, 50).Where(x -> x mod 5 = 0).Select(x -> x * x).Sum().Println();

Answer 2

Вот пример программы на языке Pascal для вычисления суммы кубов чисел, кратных 5, в интервале от 15 до 50:

pascalCopy code
program SumOfCubes;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 15 to 50 do
  begin
    if i mod 5 = 0 then // Проверяем, кратно ли число 5
      sum := sum + i * i * i; // Если кратно, добавляем куб числа к сумме
  end;
  writeln('Сумма кубов чисел, кратных 5, в интервале от 15 до 50: ', sum);
end.

Эта программа начинает суммировать кубы чисел от 15 до 50, и если число кратно 5 (что проверяется с помощью оператора mod), то его куб добавляется к общей сумме. Результат выводится на экран.