Автор Тема: [Все] Первая цифра числа  (Прочитано 23995 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Онлайн ЭйчЭйч [?]

  • Сообщений: 110
  • Репутация: -1
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: [Все] Первая цифра числа
« Ответ #30, Отправлен: Март 14, 2019, 13:37:55 »
n!
 
Принято, что 0!=1   
1!=1
2!=2⋅1=2
3!=3⋅2⋅1=6
4!=4⋅3⋅2⋅1=24
5!=5⋅4⋅3⋅2⋅1=120
6!=6⋅5⋅4⋅3⋅2⋅1=720
Какое число должно быть больше 100? n или факториал?

Код: AutoIt [Выделить]
$iFac = 80

$iResult = 1
For $i = 1 To $iFac
   $iResultA = 1
   For $j = 1 To $i
      $iResultA = $j * $iResultA
   Next
   $iResult = Round($iResultA / (10 ^ (StringLen($iResultA) - 1)), Round($i/8))
   If $iResultA > 100 Then
      ConsoleWrite($i & '   ' & '   ' & $iResultA & '   ' & StringLeft($iResult, 1) & '   ' & @CRLF)
   EndIf
Next

Если я правильно понял.
5      120   1   
6      720   7   
7      5040   5   
8      40320   4   
9      362880   3   
10      3628800   3   
11      39916800   4   
12      479001600   4   
13      6227020800   6   
14      87178291200   8   
15      1307674368000   1   
16      20922789888000   2   
17      355687428096000   3   
18      6402373705728000   6   
19      121645100408832000   1   
20      2432902008176640000   2   
23      8128291617894825984   8   
25      7034535277573963776   7   
31      4999213071378415616   4   
33      3400198294675128320   3   
34      4926277576697053184   4   
35      6399018521010896896   6   
36      9003737871877668864   9   
37      1096907932701818880   1   
38      4789013295250014208   4   
39      2304077777655037952   2   
42      7538058755741581312   7   
44      2673996885588443136   2   
46      1150331055211806720   1   
49      8789267254022766592   8   
55      6711489344688881664   6   
56      6908521828386340864   6   
57      6404118670120845312   6   
58      2504001392817995776   2   
59      162129586585337856   1   
61      3098476543630901248   3   
62      7638104968020361216   7   
63      1585267068834414592   1   
>Exit code: 0    Time: 0.6316
После 63 не считает.  :-\
« Последнее редактирование: Март 14, 2019, 14:23:50 от ЭйчЭйч »

Русское сообщество AutoIt

Re: [Все] Первая цифра числа
« Ответ #30 Отправлен: Март 14, 2019, 13:37:55 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
12 Ответов
5020 Просмотров
Последний ответ Февраль 01, 2012, 22:54:43
от Afonichev
12 Ответов
5701 Просмотров
Последний ответ Апрель 15, 2012, 11:37:00
от MyBB
3 Ответов
2589 Просмотров
Последний ответ Июнь 13, 2012, 19:03:01
от Yashied
19 Ответов
7094 Просмотров
Последний ответ Июль 03, 2012, 20:07:21
от Garrett
10 Ответов
5265 Просмотров
Последний ответ Сентябрь 28, 2012, 18:43:22
от ArtInt
2 Ответов
2551 Просмотров
Последний ответ Октябрь 21, 2013, 23:53:57
от britanec74
1 Ответов
1968 Просмотров
Последний ответ Март 27, 2014, 17:50:40
от Garrett
13 Ответов
3535 Просмотров
Последний ответ Март 27, 2014, 23:04:36
от alex33
0 Ответов
7790 Просмотров
Последний ответ Март 09, 2015, 19:52:38
от goodmax
4 Ответов
432 Просмотров
Последний ответ Апрель 01, 2018, 19:29:47
от sergeinovilozf