Для работы с целыми числами в языке Basic служат следующие операторы:
1) Оператор Y = INT(X) округляет до целого
дробное число X или результат деления A/B
Y = INT(A/B).
Тоже самое действие выполняет деление \
X = A \ B
Например, INT(3.5) = 3
X = INT(8/3) = 2
X = 8 \ 3 = 2
2) Оператор MOD делит одно число на другое
и возвращает только остаток деления: A MOD B.
Он вычисляет остаток от деления, например:
1. 14 MOD 5 = 4
2. 11 MOD 4 = 3
3. 17 MOD 3 = 2
4. 15 MOD 2 = 1
Пример 1: Определение чётности или нечётности числа.
CLS
INPUT "Введите число N=", N
IF N MOD 2 THEN PRINT "Число нечётное" ELSE PRINT "Число чётное"
END
Пример 2: Разработать программу нахождения и вывода
на экран всех чисел, оканчивающихся на 5,
и делящихся на 3, из диапазона чисел от 5 до 1000.
CLS
FOR i = 5 TO 1000 STEP 5
x = i MOD 3
IF x = 0 THEN PRINT i;
NEXT i
END
Пример 3: Определите, является ли число простым, или нет.
Натуральное число N называется простым,
если его делителями являются только два числа: 1 и N.
CLS
INPUT "Введите число N=", N
IF N <= 3 THEN GOTO 10
d = 2
IF N MOD 2 = 0 THEN GOTO 20
d = 3
FOR i = 1 TO N
d = d + 2
IF N MOD d = 0 THEN GOTO 20
IF N <= d * d THEN GOTO 10
NEXT i
10 PRINT "Число N-простое."
INPUT "Для продолжения - Enter.", z
END
20 PRINT "Число N-составное. Оно делится на"; d
INPUT "Для продолжения - Enter.", w
END