| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Последнее неравная нулю цифра числа N! (N факториал) [D7, WinXP]
-=SaM=- © (2005-10-19 18:22:00)как найти сабж?
TUser (2005-10-20 12:43:00) [1]Если я понял о чем речь
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;
evvcom (2005-10-20 10:27:00) [2]Умножаешь, анализируешь, лишнее отбрасываешь, и опять умножаешь, ...
MBo (2005-10-19 20:38:00) [3]А как пытался?
-=SaM=- (2005-10-19 18:46:00) [4]при чем 1<=N<=10000
| |
