Получить новое натуральноечисло, заменив все четные цифры исходного числа числом K - QBasic

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

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

условный оператор, операторы цикла, массивыи литерные величины не использовать

). Дано натуральное число n(n<28). Найти все трехзначные числа, сумма цифр которых равна n.

Операции деления, целочисленного деления и нахождения остатка не использовать.

Дано натуральное число N, которое вводится с клавиатуры. Получить новое натуральноечисло, заменив все четные цифры исходного числа числом K (К – вводится с клавиатуры). Например:N=1233473 и К=5 Ответ: М=1533573

Решение задачи: «Получить новое натуральноечисло, заменив все четные цифры исходного числа числом K»

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

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

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

CLS - очистка экрана
PRINT a<>0 and b<>0 and a<>b - вывод на экран условия задачи
INPUT vvedite a; a - ввод натурального числа a с клавиатуры
INPUT vvedite b; b - ввод натурального числа b с клавиатуры
x = (a \ b) / (a / b) - вычисление выражения с использованием операторов деления и взятия остатка от деления
y = (b \ a) / (b / a) - вычисление выражения с использованием операторов деления и взятия остатка от деления
PRINT x+y - вывод на экран суммы x и y