Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Djifzzr
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 5
1

Произведение простых делителей натурального числа N

18.01.2013, 11:16. Просмотров 1027. Ответов 2
Метки нет (Все метки)

Составьте программу вычисления произведения простых делителей натурального числа N
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2013, 11:16
Ответы с готовыми решениями:

Как найти сумму четных делителей натурального числа M, больших P, но меньших Q
Составьте программу вычисления суммы четных делителей натурального числа M, больших P, но меньших Q

Вычислить произведение членов натурального ряда чисел
Помогите с решением! Вычислить произведение членов натурального ряда чисел от 1 до 12 ( факториал...

Программа вычисления числа простых делителей натурального числа М, не являющихся в то же время делителями числа N
В идеале нужен нужно написать метод: Составьте программу вычисления числа простых делителей...

Подсчет простых делителей натурального числа N
Составьте программу подсчета простых делителей натурального числа N

Вывод на экран простых делителей натурального числа
Здравствуйте, помогите пожалуйста с задачей Составьте программу вывода на экран дисплея простых...

2
m-ch
5559 / 842 / 281
Регистрация: 25.02.2011
Сообщений: 1,192
Записей в блоге: 1
20.01.2013, 00:00 2
Лучший ответ Сообщение было отмечено Djifzzr как решение

Решение

Каковы ограничения для N?
Для малых N (менее 10^6) можно сделать прямым перебором, без оптимизации по скорости, кода будет немного
для больших N (10^6 - 10^9 и более) алгоритм нужно будет оптимизировать

Добавлено через 42 минуты
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CLS
DIM i AS LONG, j AS LONG, n AS LONG, m AS LONG, p AS LONG
INPUT "N = "; n
PRINT "Prostye deliteli:"
p = 1
FOR i = 2 TO n
  IF i > n THEN EXIT FOR
  j = 0
  DO
    m = n MOD i
    IF m = 0 THEN
        n = n \ i
        IF j = 0 THEN p = p * i: j = 1: PRINT i
    END IF
  LOOP WHILE m = 0
NEXT i
PRINT "Proizvedenie prostyh deliteley ="; p
0
Djifzzr
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 5
23.01.2013, 00:09  [ТС] 3
Сдал информатику на 5 большое спс
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2013, 00:09

Вычисление простых делителей натурального числа N, не являющихся делителями числа М
Помогите, пожалуйста, составить программу, язык программирования python Составить программу...

Составьте программу подсчета простых делителей натурального числа N (с подпрограммой)
Не могу найти ошибку, помогите разобраться. var N, s: integer; f: boolean; procedure...

Дописать процедуру. Составьте программу вычисления суммы простых делителей натурального числа М (М>2)
Программка работает хорошо. Только вот оказалось что по заданию нужно использовать процедуру. А...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru