Программа проверяет, является ли число введённое пользователем, простым. Простыми считаются натуральные (целые положительные) числа больше единицы, которые делятся только на единицу и на самих себя.
Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:
TextWindow.Write("Введите число: ")
x = TextWindow.ReadNumber() ' вводим число
TextWindow.WriteLine("")
If x => 2 Then ' Проверка на положительное число, большее 2
TextWindow.WriteLine("Число меньше 2!")
Program.End() ' завершаем работу
EndIf
' Проверка на целое число
z = Math.Floor(x)
If z < x Then
Text.Window("Число не целое!")
Program.End() ' завершаем работу
EndIf
p = Math.Floor(Math.SquareRoot(x)) ' определяем предел для поиска делителей числа
For a = 2 To p ' цикл от 2 до p - перебираем возможные делители
z = Math.Remainder(x, a) ' вычисляем остаток от деления
If z = 0 Then ' если остаток равен = 0
TextWindow.WriteLine("Ваше число - составное! Его делители: " + x/a + ", " + a)
Program.End() ' завершаем программу
EndIf
EndFor
TextWindow.WriteLine("Ура! Число " + x +" - простое!")
Поделиться: