Даны два натуральных числа А и В. Если А делится нацело на В или В делится нацело на А,то вывести на экран 1 (единицу), а иначе вывести любое другое число (условный оператор, операторы цикла, массивы и литерные величины не использовать).- QBasic(Бейсик)

CLS
PRINT "a<>0 and b<>0 and a<>b"
INPUT "vvedite a"; a: INPUT "vvedite b"; b
x = (a \ b) / (a / b)
y = (b \ a) / (b / a)
PRINT x+y

Тестирование выполнено в программе QB64 ( Скачать )