Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
2 / 2 / 1
Регистрация: 25.12.2016
Сообщений: 23

Имеются ли среди чисел n+1,...,2n простые числа, разность между которыми равна двум

28.04.2017, 17:48. Показов 1309. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано число n<= 15. Выяснить, имеются ли среди чисел n+1,...,2n простые числа,
разность между которыми равна двум. Вывести на экран пары простых чисел. Нахождение
простых чисел оформить в виде подпрограммы.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.04.2017, 17:48
Ответы с готовыми решениями:

Выясните, имеются ли среди чисел от A до 2 x A близнецы, т. е. простые числа, разность между которыми равна двум
Пользователь вводит натуральное число A. Выясните, имеются ли среди чисел от A до 2 x A близнецы, т. е. простые числа, разность между...

Выяснить, имеются ли среди чисел n, n+1, ..., 2n близнецы, т.е. простые числа, разность между которыми равна двум.
Помогите, пожалуйста, решить задачу: дано натуральное число n. Выяснить, имеются ли среди чисел n, n+1, ..., 2n близнецы, т.е. простые...

Есть ли среди данных чисел «близнецы», т.е. простые числа, разность между которыми = 2
Дано натуральное число n. Напишите программу, определяющую, есть ли среди чисел n, n+1, …, 2n «близнецы», т.е. простые числа, разность...

3
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
28.04.2017, 19:31
WhiteNight
Процедура PCH() вычисляет простые числа в массив.
Число 2 в этот массив не входит, ибо ему нет пары.

QBasic/QuickBASIC
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
DECLARE SUB PCH (x() AS INTEGER)
 
CLS
DIM x(30) AS INTEGER
 
DO
   INPUT "N = "; n
LOOP UNTIL n <= 15
 
CALL PCH(x())
 
FOR i = n + 1 TO 2 * n
   IF i + 2 <= 2 * n THEN
   IF x(i) AND x(i) = x(i + 2) THEN
      PRINT i; i + 2
   END IF
   END IF
NEXT
END
 
SUB PCH (x() AS INTEGER)
   x(3) = -1
  
   FOR i = 5 TO 30 STEP 2
      FOR d = 3 TO i / 3
         IF i MOD d = 0 GOTO 100
      NEXT
      x(i) = -1
100
   NEXT
END SUB
0
2 / 2 / 1
Регистрация: 25.12.2016
Сообщений: 23
06.05.2017, 11:00  [ТС]
Данная программа выводит не только простые числа
0
2 / 2 / 1
Регистрация: 25.12.2016
Сообщений: 23
17.05.2017, 12:36  [ТС]
Чем в данной программе является d?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.05.2017, 12:36
Помогаю со студенческими работами здесь

Найти простые числа-близнецы разница между которыми равна двум
Дано натуральное n. Выяснить имеются ли среди чисел n, n+1,…2n близнецы, т.е. простые числа, разность между которыми равна двум....

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

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

Выдать пары простых чисел, разность между которыми равна 4, а сами числа меньше n
Дано натуральное число n&gt;13. Выдать пары простых чисел, разность между которыми равна 4, а сами числа меньше n. Заранее большое спасибо.

Определить, есть ли среди чисел в заданном интервале близнецы (простые числа, разница между которыми = 2)
Дано натуральное число n. Определить, есть ли среди чисел n, n+1, ..., 2n числа - близнецы, то есть простые числа, разница между которыми...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru