Question

15 . произведение чисел: составить код, который будет сам умножать все числа по порядку. мы выбираем первое число, а потом последнее. к примеру: выбрали число 1 и 2018. нужно узнать произведение чисел: 1*2*3*4*5**2018 языки желательно: c++, pascalabc, free pascal, c#

Answer 1

A,b = int(input(Начальное число: )), int(input(Конечное число: )) 
s = 1 
for i in range(a,b+1): s *= i 
print(s)

Answer 2

1. PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2;
  Range(a,b).Aggregate(Biginteger(1),(p,q)->p*q).Println
end.

Результат показан во вложении 1. Большое число получилось)))

2. Free Pascal

program ideone;

var
  a,b,i:integer;
  p:extended;

begin
  Read(a,b);
  p:=1;
  for i:=a to b do p:=p*i;
  Writeln(p)
end.

Результат приведен во вложении 2.
К сожалению, на интервале данных [1;2018] в этой версии Паскаля недостаточно диапазона значений представляемого результата и было вычислено произведение на [1;1000]. Для [1;2018] выводится Inf - машинная бесконечность.