Является ли введенное число простым - VB

  1. Вводиться натуральное число.Вывести на экран так,чтобы все цифры расположились в обратном порядке. Вводиться натуральное число.Вывести-простое это число или нет.


textual

Код к задаче: «Является ли введенное число простым - VB»

   For i = 3 To SQR(N) Step 2
      If n Mod i = 0 Then MsgBox "Не простое", , i: Exit Sub
      'm = n \ i 'верхняя граница приближается
      'If i > m Then Exit For
   Next i

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.429 из 5



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Всем добрый вечер! Я пишу, разумеется, на VB6 и на .NET переходить не собираюсь. Меня устраивает в нём то, что это - полностью законченный "Проект", без (почти) глюков и постоянных обновлений. Но вот какая история. Некоторое время назад я "пролетел" мимо гранта. Член комиссии, компьютерщик, спросил меня: На чём я пишу? Я ответил: "VB6 + Access 2003". Он высказал: "Кому это сейчас нужно?". Я ответил, что абсолютно неважно, на чём написана программа, хоть на языке Ассемблера, главное: чтобы она работала. В итоге он зарубил мой проект. Братья по разуму! Вы все пишете именно на VB6. Что скажете по этому поводу: кто прав? Насколько актуален сегодня VB6, поддержка которого прекратилась 10 лет назад? P.S. А не использует ли сам Microsoft до сих пор "устаревшие" языки?!!

  1. Это продолжение. См. также другие части этой статьи:Часть 1. Кусочек теории.Часть 3. Программа проверки Authenticode ЭЦПЧасть 2. Описание реализации программы проверки подписейСодержание: 2.1. Подготовка к проверке 2.2. Запуск процедуры проверки и обработка результатов 2.3. Очистка ресурсов. 2.4. Извлечение сертификатов и содержащейся в них информации 2.5. Извлечение атрибутов и крос-подписей

  1. Должно работать после нажатия command)Добавлено через 5 часов 49 минут Неужели никто не может этого в VB?(

  1. Все элементы главной диагонали заменить наибольшим элементом всего массива! не пойму как делать

  1. Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой.

  1. visual basic 6.0, подскажите как сделать в правке "Выделить все"

  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 begin   write('Введите n: ');   var n := ReadInteger;     var c := 0;   for var i:=1 to n do   begin     write ('Введите целое число: ');     var x := ReadInteger;     if x mod 2 <> 0 then       c += 1;   end;     writeln('Количество нечетных равно ', c); end. Нужно сделать в VB . Я сделал , но не правильно , выводит только 0. Помогите пожалуйста , буду благодарен. Вот мой код :

  1. 1) создать экранную форму, разместив на ней элементы управления: кнопку и два тек-стовых поля – одно для ввода чисел, другое – для вывода результата вычислений; 2) поместить на форму поясняющие надписи около этих элементов, а также фамилию, номер группы, текущую дату и номер варианта; 4) создать процедуру, запускаемую при нажатии кнопки на форме и выполняющую необходимые вычисления. В заданном массиве подсчитать количество чисел, делящихся без остатка на 7: 28 21 26 14 63 28 33 19 21 22