Найти все цифры десятичной записи числа

@VLena · Регистрация: 21.09.2015

Author24 — интернет-сервис помощи студентам

Найти все цифры десятичной записи числа 3^(2^(3^2)).

@Puporev · 10.11.2015, 08:33

Если нужно вычислить 3⁵¹² то можно так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
type ts = 0..9; //тип цифры
chislo=array[1..nmax] of ts;//массивы-числа
procedure nul(var a:chislo); //обнуление числа
var i:integer;
begin
for i:=1 to nmax do
a[i]:=0;
end;
function kol(const a: chislo):integer;//определение длины числа
var i:integer;
begin
i:=nmax;
while(a[i]=0)and(i>1) do
i:=i-1;
kol:=i;
end;
procedure mult(var a,c:chislo);//собственно умножение
var i,m:integer;
    p:0..9;
    v:byte;
begin
nul(c);
m:=kol(a);
for i:=1 to m do
 begin
  p:=0; //перенос
  v:=a[i]*3+p+c[i];//текущее число
  c[i]:=v mod 10;//пишем остаток
  p:=v div 10;//новый перенос
 end;
c[i+1]:=p;//последний перенос
for i:=1 to nmax do
a[i]:=c[i]; //запомним полученное число
end;
procedure print(var a : chislo); //печать длинного числа
var i:integer;
begin
for i:=kol(a) downto 1 do
write(a[i]);
end;
var a,b,c:chislo;i,k:integer;
begin
a[1]:=3;
b[1]:=3;
for i:=2 to 512 do
 begin
  mult(a,c);
  for k:=1 to nmax do
  a[k]:=c[k];
 end;
print(c);
end.

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

@VLena 0 / 0 / 0 Регистрация: 21.09.2015 Сообщений: 211

	Найти все цифры десятичной записи числа 09.11.2015, 23:38. Показов 2393. Ответов 1 Метки нет (Все метки) Найти все цифры десятичной записи числа 3^(2^(3^2)). 0

Опции темы

Найти все цифры десятичной записи числа

Решение