|
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
|