Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.89
dzhioev777
0 / 0 / 0
Регистрация: 06.10.2012
Сообщений: 37
#1

Найти произведение всех простых делителей заданного числа - Turbo Pascal

08.10.2012, 19:08. Просмотров 1335. Ответов 1
Метки нет (Все метки)

Найти произведение всех простых делителей заданного числа.

Добавлено через 59 секунд
м

http://www.cyberforum.ru/turbo-pascal/thread676220.html

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 19:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение всех простых делителей заданного числа (Turbo Pascal):

Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция: количество делителей заданного числа
Найти все числа в диапазоне от M до N, имеющие ровно k делителей. Функция:...

Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция: количество делителей заданного числа
Найти в диапазоне от M до N число с наибольшим количеством делителей. Функция:...

Найти сумму и произведение всех элементов одномерного массива, больших заданного числа
Найти сумму и произведение всех элементов одномерного массива, больших...

Получение в порядке убывания всех делителей заданного числа
6. Составьте программу получения в порядке убывания всех делителей данного...

Вычислить сумму всех делителей заданного натурального числа
Очень нужна помощь с написанием следующих программ)) 1. Написать программу,...

1
NurlashKO
87 / 87 / 80
Регистрация: 07.10.2012
Сообщений: 145
08.10.2012, 19:14 #2
Лучший ответ Сообщение было отмечено dzhioev777 как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
    n, p, ans :longint;
begin
    read(n);
 
    p := 2;
    ans := 1;
 
    while (p * p <= n) do begin
 
        if (n mod p = 0) then begin
            ans := ans * p;
            while (n mod p = 0) do n := n div p;
        end;
        inc(p);
 
    end;
    ans := ans * n;
    writeln(ans);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2012, 19:14
Привет! Вот еще темы с решениями:

Для каждого числа последовательности найти сумму его простых делителей
Вводится последовательность целых чисел, 0 - конец последовательности. Для...

Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей...

Найти количество делителей заданного числа
While: 1.Найти количество делителей заданного числа. Решите пожалуйста..

Найти все числа, меньше заданного числа, которые равны сумме своих делителей, исключая себя
Помогите пожалуста, это сложное задание, я в этом паскале мало что знаю Мне...


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

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

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