Question

Задано два числа.Перевірити, чи більше з чисел є кратним меншому числу.Якщо так, то вивести частку від ділення більшого на менше,якщо ні-повідомлення про не кратність чисел

Answer 1

// Pascal

var a, b, tmp: integer;

begin

a := 15;

b := 5;

if a < b then

begin

tmp := a;

a := b;

b := tmp;

end;

if a mod b = 0 then

writeln(a div b)

else

writeln('Числа не кратные');

end.

Answer 2

Звісно, я допоможу вам з цим завданням. Ось приклад коду на мові Python, який вирішує це завдання:

pythonCopy code
def check_and_compute(a, b):
    if a == 0 or b == 0:
        print("Числа не можуть бути нульовими.")
    elif a % b == 0:
        result = a / b
        print(f"{a} є кратним {b}. Частка: {result}")
    elif b % a == 0:
        result = b / a
        print(f"{b} є кратним {a}. Частка: {result}")
    else:
        print(f"{a} та {b} не є кратними одне одному.")

# Вхідні дані
num1 = int(input("Введіть перше число: "))
num2 = int(input("Введіть друге число: "))

# Перевірка та обчислення
check_and_compute(num1, num2)

Просто запустіть цей код і введіть два числа, які ви хочете перевірити. Програма перевірить, чи одне число є кратним іншому, і виведе результат відповідно до вказаної умови.