Последнее неравная нулю цифра числа N! (N факториал)

← →
-=SaM=- (2005-10-19 18:22) [0]

как найти сабж?

← →
-=SaM=- (2005-10-19 18:46) [1]

при чем 1<=N<=10000

← →
MBo © (2005-10-19 20:38) [2]

А как пытался?

← →
evvcom © (2005-10-20 10:27) [3]

Умножаешь, анализируешь, лишнее отбрасываешь, и опять умножаешь, ...

Если я понял о чем речь

var b: integer;
begin
b:=1;
for i:=1 to n do begin
b:=b*i;
// оставляем только ту цифру, которая нам интересна
while b mod 10 = 0 do
b:=b div 10;
b:=b mod 10;
end;

result:=b;

end;

Последнее неравная нулю цифра числа N! (N факториал) Найти похожие ветки