• Хотите, чтобы ваш ребенок почувствовал себя богом (творцом/создателем) — научите его программированию и робототехнике.

Проверка числа на простоту

Программа проверяет, является ли число введённое пользователем, простым. Простыми считаются натуральные (целые положительные) числа больше единицы, которые делятся только на единицу и на самих себя.

Вы можете скопировать указанный ниже код программы в 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 +" - простое!")


Поделиться: