Напишите программу для вычисления последней ненулевой цифры факториала заданного числа n(0 ≤ n ≤ 10³⁰⁰). циклы использовать запрещено.

Все ниже коды написаны и отлажены в среде pascalabc.net 3.2. сборка 1439(10.05.2017). сначала программа, показывающая период=)) var     n: uint64;     b: biginteger: =1; begin write('n = '); readln(n); for var i: = 1 to n do       begin       if (i mod 10 < > 5)and(i mod 10 < > 0) then b: =b*i             else if i mod 10 = 5 then b: =b div 2;       write(b mod 10);       if i mod 40 = 0 then writeln;       end; end. n = 1000 1264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 6264224288868266264448468868222428448466 ну и так далее. искомая программа: const     t = '6626422428886826626444846886822242844846'; var     s: biginteger; begin s: =readstring.tobiginteger; if s > 1 then writeln(t[(s mod 40).tostring.tointeger+1]) else writeln(1) end.

Ответ: 293 * 1024 * 8 /   128000 =  18,752 секунды