0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 22
1

Определить, можно ли число N представить в виде произведения двух простых чисел?

20.09.2014, 13:32. Показов 3976. Ответов 1
Метки нет (Все метки)

Составить программу для проверки, можно ли заданное натуральное число N представить в виде произведения двух простых чисел. Паскаль. Дальше нахождения простых чисел дело не пошло
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses Crt;
var
i,k,n,s:integer;
begin
ClrScr;
Write('Введите число:');
Readln(n);
for i:=2 to n do begin
s:=0;
for k:=1 to i div 2 do begin
if i mod j=0 then inc(s);
end;
if s=1 then Writeln(i);
end;
begin
\\\\ then writeln('Можно')
else writeln('Нельзя');
end;
ReadKey;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2014, 13:32
Ответы с готовыми решениями:

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

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

Нахождения всех натуральных чисел, которые можно представить в виде произведения двух простых чисел
Помогите! Нужно записать все комбинации произведения простых чисел. Вот условие: Дано натуральное...

Можно ли число x представить в виде произведения двух простых чисел
Помогите пожалуйста сделать. Напишите пожалуйста программу полностью и по проще. 2. Введите...

1
906 / 754 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
20.09.2014, 14:51 2
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
25
26
27
28
29
30
31
32
33
34
35
36
37
///Функция проверяет, является ли число простым
function IsPrimes(j: integer): boolean;
var
  k: integer;
begin
  if j < 2 then result := false
  else
  if j = 2 then result := true
  else
  if odd(j + 1) then result := false
  else begin
    k := 3;
    result := true;
    while k * k <= j do 
      if j mod k <> 0 then inc(k, 2)
      else begin 
        result := false; 
        exit 
      end
  end
end;
 
var
  N, i: Longword;
 
begin
  write('N = ');
  readln(N);
  i := 2; //Минимальный возможный делитель > 1
  While N mod i > 0 do //Проверяем делимость
    if i = 2 then inc(i)
    else inc(i, 2);
  writeln;
  if IsPrimes(i) and IsPrimes(N div i) then writeln('Можно')
  else writeln('Нельзя');
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.09.2014, 14:51
Помогаю со студенческими работами здесь

определить, можно ли представить данное число в виде произведения двух простых сомножителей
составьте программу,определяющую,можно ли представить данное натуральное число M в виде ...

Определить, можно ли данное число представить в виде суммы двух простых чисел
Ваша задача - определить, можно ли представить данное число N в виде суммы двух простых чисел....

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

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

Выяснить, можно ли заданное число представить в виде суммы двух простых чисел
Выяснить, можно ли заданное число представить в виде суммы двух простых чисел(реализовать функцию...

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


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

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

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