Question

ПАСКАЛЬ Задача1. Вычислить: 1³+3³+5³+…+13³, используя цикл с постусловием (Repeat). Задача2. Вывести на печать все числа на промежутке от -50 до 50, которые кратны 5 и 8, найти их сумму и произведение, используя цикл с параметром (For).

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var s := 1;

 var i := 1;

 repeat

   s += i * i * i;

   i += 2

 until i > 13;

 Println('Сумма кубов нечетных чисел от 1 до 13 равна', s);

 // 2

 var (sum, pr) := (0, 1);

 for var j := -50 to 50 do

   // если условие предполагает, что "кратны 5 и 8"

   // на самом деле означает "кратны 5 ИЛИ 8", заменить

   // в следующей строке and на or

   if (j mod 5 = 0) and (j mod 8 = 0) then

   begin

     Print(j);

     sum += j;

     pr *= j

   end;

 Writeln;

 Write('Сумма: ', sum, ', произведение: ', pr)

end.

Задача2 - пример явной глупости того, кто ее придумал. При симметрии интервала с положительными и отрицательными числами, отбираемыми по кратности, каждому отобранному положительному числу будет соответствовать такое же отрицательное, поэтому сумма всегда будет нулевой. Вычислять произведение также нет смысла, поскольку ноль кратен любому числу и он всегда будет одним из сомножителей, обнуляя результат.

Answer 2

Для решения этих задач на языке программирования Паскаль, воспользуемся синтаксисом циклов Repeat и For.

Задача 1 - Вычисление суммы кубов нечетных чисел от 1 до 13:

pascalCopy code
program Task1;

var
  num, sum: Integer;

begin
  num := 1;
  sum := 0;

  Repeat
    sum := sum + num * num * num;
    num := num + 2; // переходим к следующему нечетному числу
  Until num > 13;

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

Задача 2 - Вывод чисел на промежутке от -50 до 50, которые кратны 5 и 8, а также нахождение их суммы и произведения:

pascalCopy code
program Task2;

var
  num, sum, product: Integer;

begin
  sum := 0;
  product := 1; // Начальное значение произведения должно быть 1, чтобы умножение не повлияло на результат

  for num := -50 to 50 do
  begin
    if (num mod 5 = 0) and (num mod 8 = 0) then
    begin
      writeln(num); // Выводим число, если оно кратно и 5, и 8
      sum := sum + num;
      product := product * num;
    end;
  end;

  writeln('Сумма чисел, кратных 5 и 8: ', sum);
  writeln('Произведение чисел, кратных 5 и 8: ', product);
end.

Программа для задачи 1 использует цикл с постусловием Repeat, чтобы пройти по всем нечетным числам от 1 до 13 и вычислить сумму их кубов. Программа для задачи 2 использует цикл с параметром For для прохода по числам на промежутке от -50 до 50 и выводит числа, которые кратны и 5, и 8, а также находит их сумму и произведение.