Отправлено: 21.10.20 11:01. Заголовок: ege17 № 47 PascalABC

Здравствуйте.
В условии задачи надо найти произведение. В Python это делается в "лоб", т.к. нет ограничений по длине числа (например так):
k,mi=0,9415
p=1
for i in range(2057,9414+1):
s=i%10+i//10%10
if s!=5 and i%4!=0 and i%5!=0 and i%41!=0:
p*=i
if i<mi:
mi=i
print(mi,p%1000)
Получаем нужный ответ: 2057 192
А вот как быть тем, кто учится программировать на PascalABC :
var
mi,rez: integer;
p:double;

begin
p := 1;
for var i := 9414 downto 2055 do
begin
if ((i mod 10)+ (i mod 100 div 10))<>5 then
if (i mod 4<>0) and (i mod 5 <>0) and (i mod 41 <>0) then
begin
p:=p*i;
writeln(p);
mi := i
end;
end;
rez:=(trunc(p)) mod 1000;
writeln(mi,' ',rez);
end.
Результат (фрагмент):
2.67271080942943E+306
8.0181324282883E+306
1.60362648565766E+307
1.60362648565766E+307
1.44326383709189E+308
∞
∞
∞
∞
∞
Какой математический алгоритм нужно применить, чтобы получить ответ?
Спасибо.

 Отправлено: 21.10.20 18:23. Заголовок: Антонина пишет: Како..

Антонина пишет:

цитата:

Какой математический алгоритм нужно применить, чтобы получить ответ?

Проблема в том, что при вычислениях получается очень большое число. Но нам нужны только три его последние цифры. Выход такой: заменить p:=p*i; на p:=(p*i) mod 1000;.

 Отправлено: 21.10.20 19:41. Заголовок: Спасибо огромное. Мо..

Спасибо огромное. Моя ошибка была в следующем:
p:=p * (i mod 1000); {пробовала так}