Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/54: Рейтинг темы: голосов - 54, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 05.09.2010
Сообщений: 4
1

Вывести все простые делители числа.

05.09.2010, 18:12. Показов 9758. Ответов 6
Метки нет (Все метки)

Дали задачу не знаю как решать.Дано число n.Вывести все его простые делители.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.09.2010, 18:12
Ответы с готовыми решениями:

Напечатать все простые делители заданного числа
программа: написать все простые делители заданного натурального числа.

Получить все простые делители этого числа.
1)Дано натуральное число n. Получить все простые делители этого числа. 2)Дана непустая...

Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p общих делителей.
Даны целые числа p и q. Получить все делители числа q, взаимно простые с p, т.е. не имеющие с p...

Дано натуральное число N. Наити все простые натуральные делители этого числа..
Дано натуральное число N. Наити все простые натуральные делители этого числа.. заранее спасибо!!!

6
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.09.2010, 18:42 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a,i,j:Longint;
    b:boolean;
begin
clrscr;
write('a=');readln(a);
for i:=2 to a do {ищем все делители}
if a mod i=0 then
 begin
  b:=true;
  for j:=2 to round(sqrt(i)) do{выбираем простые}
  if i mod j=0 then
   begin
    b:=false;
    break;
   end;
  if b then write(i,' ');
 end;
readln
end.
0
0 / 0 / 0
Регистрация: 05.09.2010
Сообщений: 4
05.09.2010, 18:56  [ТС] 3
Спасибо.А через While не знаешь как решить.Просто мы конструкции такого типа to round(sqrt(i))
еще в школе не проходили
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.09.2010, 19:05 4
А при чем здесь while и to round(sqrt(i))?
Одно от другого не зависит. Если вместо for сделать while, то признаком конца цикла будет тоже
to round(sqrt(i)), это значит что мы проверяем делимость числа от 2 до округленного квадратного корня из числа, дальше проверять нет смысла.
Если уж совсем страшно, напишите
Pascal
1
for j:=2 to i div 2 do{выбираем простые}
результат будет тот же, просто лишние проверки.
А с for на while сами учитесь переписывать.
0
0 / 0 / 0
Регистрация: 05.09.2010
Сообщений: 4
05.09.2010, 19:10  [ТС] 5
Спасибо огромное учел все ошибки спасибо.Случайно нет такого же наподобие сайтов по физике или математике просто интересно
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.09.2010, 19:14 6
Наверное есть, как без них. Есть разделы по физике и математике и на нашем форуме, не все же программисты безграмотные....
https://www.cyberforum.ru/mathematics/
https://www.cyberforum.ru/physics/
0
0 / 0 / 0
Регистрация: 05.09.2010
Сообщений: 4
05.09.2010, 19:19  [ТС] 7
спасибо большое.Просто если задачу иногда не могу решить по математике физике или информатике не знаю к кому обратиться.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.09.2010, 19:19

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

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

Вывести все простые числа...
Добрый день помогите написать программу...задали по информатике а я по этой теме 0. Вывести все...

Вывести все простые числа от 1 до 50
1)вывести все простые числа от 1 до 50 2)найти сумму цифр числа с помощью рекурсии

Простые делители заданного натур. числа
Попогите переделать программу. Вывести на экран все простые делители заданного натурального числа....

Вывести все простые числа от 0 до 100
Вывести все простые числа от 0 до 100


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru