Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Май 2011   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.825 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Асмик Александровна
Статус: Академик
Рейтинг: 8136
∙ повысить рейтинг » 		Vasiliy83
Статус: Профессионал
Рейтинг: 2035
∙ повысить рейтинг » 		Megaloman
Статус: Профессор
Рейтинг: 1780
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1065
Дата выхода:28.05.2011, 22:02
Администратор рассылки:lamed (Академик)
Подписчиков / экспертов:186 / 87
Вопросов / ответов:1 / 1

Вопрос № 183300: Здравствуйте, уважаемые эксперты! Прошу вас помочь составить программу: Дана последовательность целых чисел, определить, есть ли в этой последовательности простые, не повторяющие числа...

Вопрос № 183300:

Здравствуйте, уважаемые эксперты! Прошу вас помочь составить программу:

Дана последовательность целых чисел, определить, есть ли в этой последовательности простые, не повторяющие числа

Отправлен: 23.05.2011, 21:20
Вопрос задал: Алина Биджиева (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает lamed (Академик) :
Здравствуйте, Алина Биджиева!
Код :
Rem Дана последовательность целых чисел, определить,
Rem есть ли в этой последовательности простые числа

Sub main()
Dim i As Integer, k As Integer, n As Integer, x As Integer
Dim found As Boolean
Dim isPrime As Boolean
    
    found = False
    n = InputBox("Количество чисел")
    i = 1
    Do While (i <= n) And Not (found)
        x = InputBox("Введите число")
        k = 2
        isPrime = True
        Do While (k * k <= x) And isPrime
            If x Mod k = 0 Then
                isPrime = False
            Else
                k = k + 1
            End If
        Loop
        
        If isPrime Then
            found = True
        Else
            i = i + 1
        End If
    Loop
    
    If found Then
        MsgBox ("Есть")
    Else
        MsgBox ("Нет")
    End If
End Sub

Ответ отправил: lamed (Академик)
Ответ отправлен: 23.05.2011, 22:11
Номер ответа: 267318
Россия, Ковров
Тел.: +79107793141

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 267318 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2011, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Калашников О.А. | Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2011.6.31 от 07.05.2011
    В избранное