Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
Mad
0 / 0 / 0
Регистрация: 10.10.2008
Сообщений: 16
1

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

29.10.2008, 18:29. Просмотров 2711. Ответов 5
Метки нет (Все метки)

Дано натуральное число Р. Написать программу нахождения всех натуральных чисел, не превосходящих Р, которые можно представить в виде произведения двух простых чисел
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2008, 18:29
Ответы с готовыми решениями:

Вычислить сумму всех составных чисел от 1 до M. Составные числа можно представить в виде произведения нескольких простых чисел
Вычислить сумму всех составных чисел от 1 до M. Составные числа можно...

Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел.
Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно...

Можно ли представить число в виде произведения трёх последовательных натуральных чисел.
1. Составить цункцию для нахождения наименьшего нечётного натурального делителя...

Выяснить можно ли представить число в виде произведения трех последовательных натуральных чисел
дано натуральное число N. Выяснить можно ли представить это число в виде...

Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел?
1.Составить блок-схему "Гороскоп"(по месяцу выдает количество дней в месяце). ...

5
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
29.10.2008, 20:08 2
Код
uses crt;
function Prost(n:integer):boolean; {функция нахождения простых чисел}
var i:integer;
begin
  for i:=2 to round(sqrt(n)) do {смотрим от 2 до корня из числа, дальше пойдут повторения}
  if n mod i=0 then {если есть делители}
     begin
        Prost:=false; {не простое}
     end;
end;
function PrProst(x:integer):boolean; {функция поска чисел по условию задачи}
var i,j:integer;
begin
PrProst:=false;
for i:=2 to round(sqrt(x)) do {первый сомножитель от 2 до корня}
for j:=round(sqrt(x)) to (x div 2) do  {второй сомножитель от корня до половины числа}
if Prost(i)and Prost(j)and(i*j=x)then {если оба простые и произведение = числу}
PrProst:=true;{подходит}
end;

var P,i,j,k:integer;
begin
clrscr;
write('P=');readln(P); {наше число}
for i:=2 to P do
   begin
     if PrProst(i)then writeln(i); {если соответствует, выводим}
     if i mod 60=0 then readln;  {при больших Р чисел много, все на экран не входят, выводим порциями}
   end;
readln
end.
0
MadMag
(Yellow_Duck)
1261 / 130 / 15
Регистрация: 16.10.2008
Сообщений: 733
29.10.2008, 21:03 3
ну вот( я тоже хотел программку написать(
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
29.10.2008, 21:05 4
ну вот( я тоже хотел программку написать(
Да передохни маленько, а то крыша съедет.
1
Mad
0 / 0 / 0
Регистрация: 10.10.2008
Сообщений: 16
29.10.2008, 23:09  [ТС] 5
спс огромное =)))
0
John
0 / 0 / 0
Регистрация: 07.11.2008
Сообщений: 11
07.11.2008, 18:26 6
Помогите плииис !! (Задачки на Цикл)

1:Дано натуральное число
сколько раз данная цифра A встречается в данном числе (а вводить с клавиатуры)

2: Определить число получаемого выписывание в обратном порядке цифр заданного натурального числа N
Зарание СПС !!
0
07.11.2008, 18:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2008, 18:26

представить число n в виде произведения простых чисел
помогите решить задачу в паскале представить число n в виде произведения...

Сколькими способами заданное натуральное число N можно представить в виде суммы двух кубов натуральных чисел
Собственно, нужна помощь. Сколькими способами заданное натуральное число N...

Представить натуральное число в виде суммы простых натуральных чисел
Здравствуйте. :) Прошу помощи в написании алгоритма для элементарной задачи.....


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

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

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