Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Kapriznaya
0 / 0 / 0
Регистрация: 23.01.2012
Сообщений: 4
1

Нахождение делителей

07.02.2012, 12:25. Просмотров 939. Ответов 1
Метки нет (Все метки)

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

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

Используя процедуру нахождения количества натуральных делителей числа, определить у какого из трех чисел натуральных делителей больше
Используя процедуру нахождения количества натуральных делителей числа,...

Используя процедуру нахождения количества натуральных делителей числа, определить у какого из трех чисел натуральных делителей больше
Используя процедуру нахождения количества натуральных делителей числа,...

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

Нахождение количества делителей заданного натурального числа
дано натуральное число A (вводить с клавиатуры ) составить программу,...

1
Puporev
Модератор
54710 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,413
07.02.2012, 13:22 2
Лучший ответ Сообщение было отмечено Kapriznaya как решение

Решение

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
uses crt;
var a,b,i:integer;
    f:boolean;
begin
clrscr;
write('a=');
readln(a);
b:=abs(a); {сделаем копию числа по модулю, вдруг отрицательное}
i:=2; {1 не простое}
f:=false;{пока делителей нет}
while i*i<=a do{пока возможные делители меньше корня из числа}
 begin
  if b mod i=0 then{если делится}
   begin
    write(i,' '); {выводим}
    f:=true;{есть делители}
    while b mod i=0 do {пока делится на это число, напрмер 8/2}
    b:=b div i;{сокращаем число}
   end;
  i:=i+1;{проверяем следующее}
 end;
if not f then write('Делителей кроме 1 и ',a,' нет');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 13:22

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

Количество делителей
Подсчитайте количество натуральных делителей числа x (включая 1 и само число; x...

Больше делителей!
Как найти число с наибольшим количеством делителей среди чисел от 1 до 10^9?


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

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

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