Проверка делимости числа на три - QBasic

Формулировка задачи:

№1)Как известно, число делится на 3 тогда и только тогда , когда сумма его цифр делится на 3. Проверить признак на примере заданного трехзначного числа. №2)Определить силу тока (А) в электрической цепи по известным значениям напряжения (В) и сопротивления (Ом) с точностью до 2 знаков после запятой. Исходные данные ввести с клавиатуры. №3)Найти S кольца , внутренний диаметр которого d=20 мм, наружный D=35 мм. Данные ввести методом чтения из блока DATA. Спасибо заранее

Решение задачи: «Проверка делимости числа на три»

Листинг программы

CLS
 
INPUT "V = "; v
INPUT "R = "; r
 
a = v / r
a = INT(100 * a) / 100
 
PRINT "A ="; a
END

Объяснение кода листинга программы

CLS — очистка экрана
INPUTV = ; v — ввод числа V и его сохранение в переменную v
INPUTR = ; r — ввод числа R и его сохранение в переменную r
a = v / r — вычисление и сохранение частного v/r в переменную a
a = INT(100 * a) / 100 — приведение результата к целочисленному типу с округлением до двух знаков после запятой
PRINTA =; a — вывод значения переменной a на экран
END — завершение программы