Как вывести первые N простых чисел

@Caxar · Регистрация: 20.11.2013

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

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

Уже сталкивался с тем что люди пытались придумать сложные программы, мне нужна как можно оптимизированная программа ( но простая ).
Спасибо за помощь)

@Серж_87 · 27.11.2013, 19:49

можно куда угодно вводить число - хоть в ТекстБокс, хоть в текстовый файл на диске

@Caxar · 27.11.2013, 19:50 **[ТС]**

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

OldFedor · 27.11.2013, 20:29

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

Разработать программу

Как запостить тему, чтобы не получить ответ

@Апострофф · 28.11.2013, 08:06

Caxar, вам следовало бы для начала понять суть задачи и сформулировать её хотя бы так -

Дано натуральное число n. Вывести на экран n первых простых чисел. Например, при вводе числа 10 программа должна вывести ответ: 2 3 5 7 11 13 17 19 23 29

@JoraVoenyjHaker · 28.11.2013, 08:12

Вот посмотрите как проффесионалы решают такие задачи...
Придумал быстрый способ создать список простых чисел

SoftIce · 28.11.2013, 08:26

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

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

Caxar, emenem97,

Просто́е число́ — это натуральное число, имеющее ровно два различных натуральных делителя: единицу и само себя. Все остальные натуральные числа, кроме единицы, называются составными. Таким образом, все натуральные числа больше единицы разбиваются на простые и составные. Изучением свойств простых чисел занимается теория чисел. В теории колец простым числам соответствуют неприводимые элементы.

Последовательность простых чисел начинается так:

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157 и т.д.

@JoraVoenyjHaker · 28.11.2013, 08:36

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

Caxar, emenem97

Ну почему вы не пользуетесь поиском в нашем форуме...

@Caxar · 28.11.2013, 20:51 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Sub Main()
        Dim tnop, simple As Integer
        Dim check As Boolean
        Console.WriteLine("Введите N")
        tnop = Console.ReadLine
        For simple = 2 To tnop
            check = True
            For x = 2 To simple - 1
                If simple Mod x = 0 Then
                    check = False
                    Exit For
                End If
            Next
            If check Then Console.Write(simple & " ")
        Next
        Console.ReadLine()
    End Sub

Visual Basic
1
For x = 2 To simple - 1

как можно улучшить эту строчку?

@JoraVoenyjHaker · 28.11.2013, 21:03

Console , это откуда такое ?

@Caxar · 28.11.2013, 21:04 **[ТС]**

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

Console , это откуда такое ?

Что откуда?

SoftIce · 28.11.2013, 21:06

В консоли он пишет на VB.NET

@JoraVoenyjHaker · 28.11.2013, 21:17

Вечно меня пугают неизвестными мне командами )))

Добавлено через 8 минут
Ну вот... они VB.Net обсуждают, а я то как могу помочь, у меня VB6 установлен
поэтому я исключительно здесь режусь )))

Памирыч · 28.11.2013, 21:18

Caxar, Вы определитесь уже, на каком языке пишете. Ваша тема уже дважды переезжала, Вы попросили переместить ее сюда, а теперь зачем-то пишете код на VB .NET.
Определяйтесь окончательно, Вы ввели в заблуждение пользователей с двух разделов как минимум, и пару модераторов.

@JoraVoenyjHaker · 28.11.2013, 21:20

Ну иногда на телефоне....

SoftIce · 28.11.2013, 21:22

Если всё-таки в консоли

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Sub Main()
        Dim x As Integer = 1
        Dim N, i As Integer
        Dim k As Integer
        Dim check As Boolean
        Console.WriteLine("Введите N")
        N = Console.ReadLine
        Do
            x = x + 1
            check = True
            For i = 2 To x \ 2
                If x Mod i = 0 Then
                    check = False
                    Exit For
                End If
            Next
            If check Then Console.Write(x & " ") : k = k + 1
        Loop Until k = N
        Console.ReadLine()
    End Sub

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .

@Caxar 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 20

	Как вывести первые N простых чисел 27.11.2013, 15:10. Показов 5443. Ответов 34 Метки нет (Все метки) Разработать программу, которая вводит натуральное число N и выводит первые N простых чисел. Уже сталкивался с тем что люди пытались придумать сложные программы, мне нужна как можно оптимизированная программа ( но простая ). Спасибо за помощь) 0

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056
	27.11.2013, 19:49
	можно куда угодно вводить число - хоть в ТекстБокс, хоть в текстовый файл на диске 0

@Caxar 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 20
	27.11.2013, 19:50 [ТС]
	Разработать программу, которая вводит натуральное число N и выводит первые N простых чисел. 0

@JoraVoenyjHaker Заблокирован
	28.11.2013, 08:12
	Вот посмотрите как проффесионалы решают такие задачи... Придумал быстрый способ создать список простых чисел 1

@JoraVoenyjHaker Заблокирован
	28.11.2013, 21:03
	Console , это откуда такое ? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.11.2013, 21:06
	В консоли он пишет на VB.NET 1

@JoraVoenyjHaker Заблокирован
	28.11.2013, 21:17
	Вечно меня пугают неизвестными мне командами ))) Добавлено через 8 минут Ну вот... они VB.Net обсуждают, а я то как могу помочь, у меня VB6 установлен поэтому я исключительно здесь режусь ))) 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	28.11.2013, 21:18
	Caxar, Вы определитесь уже, на каком языке пишете. Ваша тема уже дважды переезжала, Вы попросили переместить ее сюда, а теперь зачем-то пишете код на VB .NET. Определяйтесь окончательно, Вы ввели в заблуждение пользователей с двух разделов как минимум, и пару модераторов. 0

@JoraVoenyjHaker Заблокирован
	28.11.2013, 21:20
	Ну иногда на телефоне.... 0

Как вывести первые N простых чисел

Решение