Question

Задача в Паскале.
Вычислить произведение чисел от 5 до 15 и определить получится ли результат 9-ти значным числом . ( Первоначальное значение Р=1, начальное значение параметра цикла 5 , конечное 15). Использовать формулу для подсчёта произведения. После цикла проверить условие, что получится. Результат больше = 100 млн. и меньше = 999

Answer 1

var
  i: integer;
  p: int64; {В 4-байтовый integer не влезет}
begin
  p := 1;
  for i := 5 to 15 do p := p * i;
  writeln(p);
end.

Результат:
54486432000