zadach401.BAS

{* Задача401 *}

REM basic

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


CLS
PRINT "a0 And b0 And ab"
INPUT "vvedite a"; a: INPUT "vvedite b"; b
x = (a  b) / (a / b)
y = (b  a) / (b / a)
PRINT x+y
End