Дано естественное число n. Найти все наименьшие n числа Мерсенна. (Обычное
Дано естественное число n. Найти все наименьшие n числа Мерсенна. (Простое число именуется числом Мерсенна, если оно может быть представлено в виде 2^p-1, где р тоже простое число. К примеру, 31 = 2^5 - 1 число Мерсенна.)
Задать свой вопрос1 ответ
Ангелина Шалыто
procedure isprime(n: longint; var ip: boolean);
var i, sqrtn: longint;
begin
nbsp;nbsp;if (n gt;= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
nbsp;nbsp;nbsp;nbsp;then begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i := 5;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;sqrtn := trunc(sqrt(n));
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ip := false;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while i lt;= sqrtn do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if n mod i = 0 then exit;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;inc(i, 2)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ip := true
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;else ip := (n = 2) or (n = 3)
end;
nbsp;
var n, m: longint;
nbsp;nbsp;nbsp;nbsp;mp: boolean;
nbsp;
begin
nbsp;nbsp;m := 3;
nbsp;nbsp;write(n = );
nbsp;nbsp;readln(n);
nbsp;nbsp;if n lt;= m
nbsp;nbsp;nbsp;nbsp;then writeln(Prime Mersenne numbers, smaller this number, dont exist.)
nbsp;nbsp;nbsp;nbsp;else begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Prime Mersenne numbers, there is less than this number:);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while n gt; m do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;isprime(m, mp);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if mp then writeln(m);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;m := m * 2 + 1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;readln
end.
var i, sqrtn: longint;
begin
nbsp;nbsp;if (n gt;= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0)
nbsp;nbsp;nbsp;nbsp;then begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i := 5;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;sqrtn := trunc(sqrt(n));
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ip := false;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while i lt;= sqrtn do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if n mod i = 0 then exit;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;inc(i, 2)
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ip := true
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;else ip := (n = 2) or (n = 3)
end;
nbsp;
var n, m: longint;
nbsp;nbsp;nbsp;nbsp;mp: boolean;
nbsp;
begin
nbsp;nbsp;m := 3;
nbsp;nbsp;write(n = );
nbsp;nbsp;readln(n);
nbsp;nbsp;if n lt;= m
nbsp;nbsp;nbsp;nbsp;then writeln(Prime Mersenne numbers, smaller this number, dont exist.)
nbsp;nbsp;nbsp;nbsp;else begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(Prime Mersenne numbers, there is less than this number:);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;while n gt; m do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;isprime(m, mp);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if mp then writeln(m);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;m := m * 2 + 1
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;readln
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов