Помощь - Поиск - Пользователи - Календарь
Полная версия: Факториал
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Cheburashka
А вот не могли бы Вы сказать мне каким образом можно найти последнюю ненулевую цифры любого факториала??? Я попытался решить такую задачку сохраняя последние 6 цифр его, и последовательно удаляя все нули) Но вот только после значений Х>99 там уже начинаются проблемы)))

program metro;
var N,F,R:longint;
begin
assign (input,'input.txt');
reset (input);
assign (output,'output.txt');
rewrite (output);
Read (N);
F:=1;
R:=1;
While R<=N do
Begin
F:=F*R;
R:=R+1;
If F mod 10=0 then Begin
F:=F div 10;
If F mod 10=0 then F:=F div 10
End;
If F>999999 then F:=F mod 10;
End;
If F mod 10<>0 then Write (F mod 10)
else Write (F mod 10);
End.
Lapp
Цитата(Сергей Меркурьев @ 14.05.2009 21:03) *
найти последнюю ненулевую цифры любого факториала??? [болд мой - Lapp]
Выразись, пожалуйста, поточнее. Одну цифру? несколько?
Cheburashka
Извиняюсь одну последнюю ненулевую цифрУ...
Lapp
Цитата(Сергей Меркурьев @ 14.05.2009 21:15) *
одну последнюю ненулевую цифрУ
Надо подумать..
Логично просто отбрасывать все, кроме этой цифры: и нули, и все, что перед ней. Вроде, все должно быть ок..

Типа вот так:
f:=1;
for i:=1 to n do begin
f:=f*i;
while (f mod 10)=0 do f:=f div 10;
f:=f mod 10
end;


А что значит "любого факториала"? Какие-то ограничения все же должны быть. Это решение, например, годится для факториалов чисел примерно до 3000.
Cheburashka
А вот мне не помешало бы сделать решения для нахождения для N<9999...

Ну в общем то я таким и сдеалал...
Cheburashka
Ха, оказалось так просто =))

Я переделал чуть-чуть решение и вот что у меня получилось)

program metro;
var N,F,i:longint;
begin
Read (N);
F:=1;
for i:=1 to n do
begin
f:=f*i;
while (f mod 10)=0 do
f:=f div 10;
f:=f mod 10000;
end;
Write (F mod 10);
End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.