Ответы на вопрос:
Const len = 1000; type longnum = array[1..len] of longint; var n, i: longint; s: longnum; procedure initlongnumber(n: longint; var a: longnum); var i: longint; begin for i : = 1 to len do if n < > 0 then begin a[i] : = n mod 10; n : = n div 10 end else a[i] : = 0; end; function mul(a: longnum; k: longint): longnum; var i, tmp: longint; begin tmp : = 0; for i : = 1 to len - 1 do begin a[i] : = a[i] * k + tmp; tmp : = a[i] div 10; a[i] : = a[i] mod 10 end; result : = a end; procedure printlongnumber(a: longnum); var i, j: longint; begin i : = len; while a[i] = 0 do dec(i); for j : = i downto 1 do write(a[j])end; begin readln(n); initlongnumber(1, s); for i : = 1 to n do s : = mul(s, i); write(n, '! = '); printlongnumber(s); end.
Решение только для pascalabc.net: uses system.numerics; var n,i: integer; begin write('введите натуральное число: '); read(n); var f: =new biginteger(1); for i: =2 to n do f: =f*i; writeln(n,'! = ',f); end. тестовое решение: введите натуральное число: 50 50! = 30414093201713378043612608166064768844377641568960512000000000000
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
dmutallapova13.09.2022 14:17
-
axinoffdaniil04.01.2023 23:48
-
fcpolva29.06.2022 02:48
-
Gandondddddd13.03.2021 01:25
-
slovendim16.02.2023 06:25
-
anfisachupina8511.02.2023 03:55
-
джулялучшая18.03.2022 00:48
-
kan00112.03.2020 08:58
-
Ааааааааввв27.02.2020 04:43
-
znatokchok19.09.2022 18:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.