Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
12.06.2016, 18:11 0

Дано натуральное число п. Определить, является ли оно простым

12.06.2016, 18:11. Просмотров 858. Ответов 4
Метки (Все метки)

Ответ

проверено

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DIM n AS LONG
DIM i AS LONG
 
INPUT "N = "; n
 
FOR i = 2 TO n - 1
   IF n MOD i = 0 THEN PRINT "NO": END
NEXT i
 
IF n = 1 THEN PRINT "NO" ELSE PRINT "YES"
END


Вернуться к обсуждению:
Дано натуральное число п. Определить, является ли оно простым
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2016, 18:11
Готовые ответы и решения:

Дано натуральное число п. Определить, является ли оно простым
Дано натуральное число п. Определить, является ли оно простым.

Определить, является ли заданное натуральное число простым
1)написать функцию подсчитывающую кол-во цифр цисла . Используя ее ,...

Определить является ли число целым и оканчивается ли оно цифрой 7
Доброго времени суток! Помогите пожалуйста решить задачку. Дано целое число....

Дано натуральное число n. Определить количество цифр в этом числе
Задача 3. Дано натуральное число n. Определить количество цифр в этом числе.

Дано натуральное число n. Определить все простые числа в диапазоне [2, n]
Дано натуральное число n. Определить все простые числа в диапазоне . ...

4
Другие темы раздела
QBasic Сформировать квадрат, закрашенный разными цветами с обеих сторон http://www.cyberforum.ru/qbasic/thread583085.html
Помогите пожалуйста .....Сформировать квадрат, закрашенный разными цветами с обеих сторон, вращающийся вокруг горизонтальной оси, расположенной в середине экрана.
QBasic В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова Задача 1. В исходной строке а$ определить и вывести слова, перед которыми стоят младшие по алфавиту слова. Задача 2. Определить, является ли заданная строка а$ правильной записью целого числа со... http://www.cyberforum.ru/qbasic/thread583081.html
QBasic Определить количество четных элементов массива X(n)
Решите пожалуйста задачу))) Определить количество четных элементов массива X(n). Вывести исходный массив и полученное значение. Упорядочить массив X(n) по невозрастанию. Вывести полученный массив....
QBasic В исходной строке а$ заменить все вхождения заданной последовательности символов x$ на другую заданную последовательность
В исходной строке а$ заменить все вхождения заданной последовательности символов x$ на другую заданную последовательность символов y$.
QBasic Дана матрица целых чисел X(n, т). Упорядочить ее строки по возрастанию их минимальных элементов http://www.cyberforum.ru/qbasic/thread583023.html
Дана матрица целых чисел X(n, т). Упорядочить ее строки по возрастанию их минимальных элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.
QBasic Найти суммы элементов квадратной матрицы произвольного размера найти суммы элементов квадратной матрицы произвольного размера а) расположенных выше главной диагонали б) расположенных ниже главной диагонали ЗАРАНЕЕ СПАСИБО подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru