Впаскале. вычислить произведение чисел от 5 до 15 и определить получится ли результат 9-ти значным числом . ( первоначальное значение р=1, начальное значение параметра цикла 5 , конечное 15). использовать формулу для подсчёта произведения. после цикла проверить условие, что получится. результат больше = 100 млн. и меньше = 999
i: integer;
p: int64; {В 4-байтовый integer не влезет}
begin
p := 1;
for i := 5 to 15 do p := p * i;
writeln(p);
end.
Результат:
54486432000