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

@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.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

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

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