Найти все делители натурального числа

@Володя3310 · Регистрация: 30.04.2024

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

Дано натуральное число. Найти все его натуральные делители.

@qbfan · 03.05.2024, 11:16

QBasic/QuickBASIC
1
2
3
4
5
6
7
DEFLNG A-Z
INPUT "N=", N
PRINT "deliteli N"
FOR I = 2 TO N - 1
IF N / I = N \ I THEN PRINT I;
NEXT I
PRINT

@Catstail · 06.05.2024, 13:24

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
INPUT n
k=2
DO WHILE k*k<=n
    IF n MOD k = 0 THEN
       PRINT k
       m=n\k
       IF m <> k THEN PRINT m
    END IF
    k=k+1
LOOP

@Mikle Quits · 06.05.2024, 13:59

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

m=n\k
IF m != k THEN PRINT m

Тут нет проверки на натуральность числа "m".
И разве в QB можно так: "!="? Может "<>"? Под рукой нет проверить.

@Catstail · 06.05.2024, 15:18

Сообщение от Mikle Quits

Может "<>"?

- да, я ошибся. Исправил.

Добавлено через 1 минуту

Сообщение от Mikle Quits

Тут нет проверки на натуральность числа "m".

- как это? Целочисленное деление "" возвращает целое значение, нет?

@Mikle Quits · 06.05.2024, 15:31

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

как это?

Это я тупанул. Показалось, что нужны простые, а не натуральные, делители.
Формулировка задачи кривая, зачем писать "натуральные делители", если слово "делители" и так подразумевает натуральные числа.

@qbfan · 06.05.2024, 20:07

Согласен, моя программа (см выше) подтормаживает на несколько секунд при n=2000000000.
Строго говоря:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'freebasic
DEFLNG a-z
DIM S(1000) AS LONG
' потому что по умолчанию программа компилируется с ключом -s gui
SCREEN 12
SP=0
INPUT n
k=2
WHILE k*k<=n
    IF n MOD k = 0 THEN
       PRINT k;
       m=n\k
       IF m <> k THEN S(SP)=m:SP=SP+1
    END IF
    k=k+1
WEND
WHILE SP>0
  SP=SP-1:PRINT S(SP);
WEND
SLEEP

Добавлено через 1 минуту
Так все делители выводятся в порядке возрастания

Новые блоги и статьи Все статьи Все блоги /
Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .	Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .
Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .	Настройка MTProxy Loafer 11.06.2025 Дополнительная информация к инструкции по настройке MTProxy: Перед сборкой проекта необходимо добавить флаг -fcommon в конец переменной CFLAGS в Makefile. Через crontab -e добавить задачу: 0 3. . .	Изучаем Docker: что это, как использовать и как это работает Mr. Docker 10.06.2025 Суть Docker проста - это платформа для разработки, доставки и запуска приложений в контейнерах. Контейнер, если говорить образно, это запечатанная коробка, в которой находится ваше приложение вместе. . .	Тип Record в C# stackOverflow 10.06.2025 Многие годы я разрабатывал приложения на C#, используя классы для всего подряд - и мне это казалось естественным. Но со временем, особенно в крупных проектах, я стал замечать, что простые классы. . .	Разработка плагина для Minecraft Javaican 09.06.2025 За годы существования Minecraft сформировалась сложная экосистема серверов. Оригинальный (ванильный) сервер не поддерживает плагины, поэтому сообщество разработало множество альтернатив. CraftBukkit. . .

@Володя3310 0 / 0 / 0 Регистрация: 30.04.2024 Сообщений: 3

	Найти все делители натурального числа 03.05.2024, 08:41. Показов 565. Ответов 6 Метки нет (Все метки) Дано натуральное число. Найти все его натуральные делители. 0