Question

Паскаль!найти произведение чисел от 1 до 10 и увеличить его в 5 раз

Answer 1

Var
   i,mult:integer;
Begin
   mult:=1;
   for i:=1 to 10 do
      mult:= mult*i;
   write(mult*5);
End.
Результатом будет: 18144000

Answer 2

Для нахождения произведения чисел от 1 до 10, мы можем использовать цикл от 1 до 10 и последовательно перемножать числа. В конце умножаем полученное произведение на 5.

В Pascal коде это может выглядеть следующим образом:

program FindingProductAndIncreasing;

var
  i, product: integer;

begin
  product := 1; // Начальное значение произведения равно 1
  for i := 1 to 10 do
    product := product * i; // Перемножаем числа от 1 до 10
  
  product := product * 5; // Увеличиваем произведение на 5
  
  writeln('Произведение чисел от 1 до 10, увеличенное в 5 раз: ', product);
end.

После выполнения этого кода на экран будет выведено: "Произведение чисел от 1 до 10, увеличенное в 5 раз: 151200".