Для каждого числа n выведите показатель n-го по порядку простого числа Мерсенна

@IceCortez · Регистрация: 25.03.2014

Студворк — интернет-сервис помощи студентам

(Если число 2ⁿ - 1 простое, то его называют числом Мерсенна.)
В первой строке дано число m (1 <= m <= 100) — количество чисел. В каждой
из последующих m строк дано натуральное число n, не превосходящее 38.
Для каждого числа n выведите показатель n-го по порядку простого числа
Мерсенна.
Например
Ввод:
1
18
Вывод:
3217

@volvo · 09.04.2014, 15:21

Самый простой способ - это захардкодить вот эту таблицу: Mersenne exponents, и возвращать нужный показатель по индексу. Потому что я не думаю, что твое задание включает реализацию длинной арифметики, а при n=38 тебе придется проверить на простоту число 2^6972593-1, представляешь себе величину этого числа?

@IceCortez · 09.04.2014, 16:02 **[ТС]**

Вот такой код получился. Все прошло.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
const
  M = 100;
  
var
  n, i: integer;
  x: array [1..M] of int64;
 
begin
  readln(n);
  for i := 1 to n do
  begin
    readln(x[i]);
    case x[i] of
      1: x[i] := 2;
      2: x[i] := 3;
      3: x[i] := 5;
      4: x[i] := 7;
      5: x[i] := 13;
      6: x[i] := 17;
      7: x[i] := 19;
      8: x[i] := 31;
      9: x[i] := 61;
      10: x[i] := 89;
      11: x[i] := 107;
      12: x[i] := 127;
      13: x[i] := 521;
      14: x[i] := 607;
      15: x[i] := 1279;
      16: x[i] := 2203;
      17: x[i] := 2281;
      18: x[i] := 3217;
      19: x[i] := 4253;
      20: x[i] := 4423;
      21: x[i] := 9689;
      22: x[i] := 9941;
      23: x[i] := 11213;
      24: x[i] := 19937;
      25: x[i] := 21701;
      26: x[i] := 23209;
      27: x[i] := 44497;
      28: x[i] := 86243;
      29: x[i] := 110503;
      30: x[i] := 132049;
      31: x[i] := 216091;
      32: x[i] := 756839;
      33: x[i] := 859433;
      34: x[i] := 1257787;
      35: x[i] := 1398269;
      36: x[i] := 2976221;
      37: x[i] := 3021377;
      38: x[i] := 6972593;
    end;
  end;
  for i := 1 to n do
    writeln(x[i]);
end.

agvego5 · 25.09.2024, 12:03

Сообщение от IceCortez

такой код получился.

спустя 10-ти летие код получился такой:

Pascal
1
2
3
4
5
6
7
8
## //Mersenne exponents
var m:=|2,3,5,7,13,17,19,31,61,89,107,127,521,607,1279,2203,2281,3217,4253,
4423,9689,9941,11213,19937,21701,23209,44497,86243,110503,132049,216091,
756839,859433,1257787,1398269,2976221,3021377,6972593,13466917,20996011,
24036583,25964951,30402457,32582657,37156667,42643801,43112609,57885161|;
var n:=ReadInteger;//количество чисел
var k:=ReadArrInteger(n);//номера чисел
for var i:=0 to k.High do m[k[i]-1].Println;

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Для каждого числа n выведите показатель n-го по порядку простого числа Мерсенна

Решение

Решение

@IceCortez 26 / 26 / 42 Регистрация: 25.03.2014 Сообщений: 233

	Для каждого числа n выведите показатель n-го по порядку простого числа Мерсенна 09.04.2014, 14:38. Показов 2063. Ответов 3 Метки нет (Все метки) (Если число 2ⁿ - 1 простое, то его называют числом Мерсенна.) В первой строке дано число m (1 <= m <= 100) — количество чисел. В каждой из последующих m строк дано натуральное число n, не превосходящее 38. Для каждого числа n выведите показатель n-го по порядку простого числа Мерсенна. Например Ввод: 1 18 Вывод: 3217 0

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	09.04.2014, 15:21
	Сообщение было отмечено IceCortez как решение Решение Самый простой способ - это захардкодить вот эту таблицу: Mersenne exponents, и возвращать нужный показатель по индексу. Потому что я не думаю, что твое задание включает реализацию длинной арифметики, а при n=38 тебе придется проверить на простоту число 2^6972593-1, представляешь себе величину этого числа? 1