Алгоритм разбиения числа на простые слагаемые

@san431 · Регистрация: 04.01.2017

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

Есть код для разложения числа на простые слагаемые. Если число большое, то количество слагаемых может быть слишком много. Как ввести ограничение на разложение до 10 слагаемых? (Внесите сразу в код, пожалуйста)
код:

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
var
    n, cnt :longint;
    a :array[1 .. 10000] of longint;
 
function IsPrime(x :longint) :boolean;
var p :longint;
begin
 
    IsPrime := true;
    p := 2;
    while (p * p <= x) do begin
        if (x mod p = 0) then
            IsPrime := false;
        p := p + 1;
    end;
    
end;
 
procedure rec(x, last :longint);
var i :longint;
begin
    if (x = 0) then begin
        for i := 1 to cnt do
            write(a[i], ' ');
        writeln;
        exit();
    end;
 
    for i := last to x do
        if (IsPrime(i)) then begin
            inc(cnt);
            a[cnt] := i;
            rec(x - i, i);
            dec(cnt);
        end;
    
end;
 
begin
    readln(n);
    rec(n, 2);
end.

@volvo · 04.01.2017, 19:20

Перед 29-ой строкой добавить ограничение:

Pascal
1
2
    if cnt < 10 then
    // тут остается цикл по i

@san431 · 04.01.2017, 19:21 **[ТС]**

Код правильный и работает. Он разбивает число на сумму простых чисел. все строчки правильно он разбил. Но мне нужно ввести ограничение на количество слагаемых (например разложить число 200 на 10 простых слагаемых)

@volvo · 04.01.2017, 19:21

Сообщение от bormant

остальное -- фигня какая-то...

Что не так-то? И 2 и 3 и 5 - простые слагаемые

@bormant · 04.01.2017, 19:23

Неправильно то, что я задание прочитал неверно, про "простые множители". Виноват.

PS. Что ж форум-то так тормозит сегодня...

@san431 · 04.01.2017, 19:23 **[ТС]**

Огромное спасибо, очень помогли!

Новые блоги и статьи Все статьи Все блоги /
Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .

@san431 0 / 0 / 0 Регистрация: 04.01.2017 Сообщений: 13
	04.01.2017, 19:21 [ТС]
	Код правильный и работает. Он разбивает число на сумму простых чисел. все строчки правильно он разбил. Но мне нужно ввести ограничение на количество слагаемых (например разложить число 200 на 10 простых слагаемых) 0

@bormant Модератор 7818 / 4637 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	04.01.2017, 19:23
	Неправильно то, что я задание прочитал неверно, про "простые множители". Виноват. PS. Что ж форум-то так тормозит сегодня... 0

@san431 0 / 0 / 0 Регистрация: 04.01.2017 Сообщений: 13
	04.01.2017, 19:23 [ТС]
	Огромное спасибо, очень помогли! 0

Опции темы

Алгоритм разбиения числа на простые слагаемые

Решение