Question

Помогите! Найти произведение чисел, кратных 13 из множества целых чисел (10, 11,...,110)

Answer 1

Ответ:

(*Найти произведение чисел, кратных 13 из множества целых чисел(10, 11,...,110)*)

Pascal

var

 i :integer;

 p :int64;

begin

 i:=13;

 p:=1;

 while i <= 110 do begin

   p:=p*i;

   inc(i,13);

 end;  

 writeln('Произведение =', p);

end.

Answer 2

Конечно, я могу помочь с этой задачей. Для нахождения произведения чисел, кратных 13, из множества целых чисел от 10 до 110, нужно пройти по этому множеству и выбрать те числа, которые делятся на 13 без остатка.

Множество чисел: 10, 11, 12, ..., 110.

Числа, кратные 13: 13, 26, 39, ..., 104.

Теперь умножим эти числа:

\(13 \times 26 \times 39 \times \ldots \times 104\).

Чтобы упростить вычисления, давайте сначала вынесем общий множитель 13:

\(13 \times (1 \times 2 \times 3 \times \ldots \times 8)\).

Теперь давайте вычислим произведение чисел от 1 до 8:

\(13 \times 40320\).

Итак, произведение чисел, кратных 13, из множества целых чисел от 10 до 110, равно \(523,776\).