Факторизация (раскладывание числа на множители, нахождение их суммы)

@Ksen Helsing · Регистрация: 06.05.2014

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

Помогите, пожалуйста, написать прогу на Pascal ABC. NET на тему: Факторизация (должна раскладывать число на множители, находить их сумму и т.д)
Буду очень признательна

@erl27 · 13.06.2014, 02:31

В PascalABC.Net integer - это 4 байта, или -2147483648..2147483647, или -2¹⁶..2¹⁶-1, а int64 и uint64 - 8 байт
Для этого достаточно запустить код:

Pascal
1
2
3
4
5
begin
  writeln('integer = ', maxInt);
  writeln('int64 = ', maxInt64);
  writeln('uint = ', maxUint64)
end.

@erl27 · 15.06.2014, 01:28

Вот более быстрый алгоритм факторизации, который разложит любое число в 1 - 2 миллиарда за долю секунды:

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
procedure Factorization(var N: uint64);
 
 procedure DivN(const x: uint64);
 begin
   while N >= x * x do
     if (N mod x = 0) then begin
       write(' ', x);
       N := N div x;
     end else break
 end;
 
var
  x: uint64;
begin
  DivN(2); DivN(3);
  x := 5;
  while N >= x * x do begin
    DivN(x); inc(x, 2);
    DivN(x); inc(x, 4)
  end;
  writeln(' ', N)
end;
 
var
  N, i: uint64;
 
begin
  for i := 1672023401 to 1672023491 do begin
    write(i, ' = ');
    N := i;
    Factorization(N)
  end;
  writeln;
  writeln(milliseconds / 1000, ' секунд')
end.

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@Ksen Helsing 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 12

	Факторизация (раскладывание числа на множители, нахождение их суммы) 29.05.2014, 23:40. Показов 5648. Ответов 21 Метки нет (Все метки) Помогите, пожалуйста, написать прогу на Pascal ABC. NET на тему: Факторизация (должна раскладывать число на множители, находить их сумму и т.д) Буду очень признательна 0