Question

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна 0), проверить делится ли оно на каждую из своих цифр.

Answer 1

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

• read_int(Int) :- read(Int), integer(Int).
• split_int_by_numbers(0, []) :- !.
• split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).
• test_to_div(_, []).
• test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints).
• test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.
• test(Int) :- write(Int), write(" - No!"), nl.
• ?- read_int(Int), test(Int).

Answer 2

Ответ:

ЯП: C++

#include <iostream>

int main() {

int number;

std::cout << "Введите трехзначное число: "<< std::endl;

std::cin >> number;

int first_part = number / 100;

int second_part = (number / 10) % 10;

int third_part = number % 10;

if ((first_part) && (second_part) && (third_part))

{

 std::cout << "Вы ввели число: " << number << std::endl;

 if ((!(number % first_part)) && (!(number % second_part)) && (!(number % third_part)))

  std::cout << "Число делится нацело!" << std::endl;

 else

  std::cout << "Число не делится нацело!" << std::endl;

}

else

{

 std::cout<< "Число НЕ должно содержать нулей!";

}

return 0;

}

Объяснение:

Answer 3

Программа на языке Python, которая проверяет, делится ли трехзначное число на каждую из своих цифр:

# Ввод трехзначного числа с клавиатуры
number = int(input("Введите трехзначное число: "))

# Получение цифр числа
hundreds = number // 100
tens = (number % 100) // 10
units = number % 10

# Проверка деления числа на каждую из его цифр
divisible_by_hundreds = number % hundreds == 0
divisible_by_tens = number % tens == 0
divisible_by_units = number % units == 0

# Вывод результата
if divisible_by_hundreds and divisible_by_tens and divisible_by_units:
    print("Число делится на каждую из своих цифр")
else:
    print("Число не делится на каждую из своих цифр")

Программа сначала запрашивает трехзначное число с клавиатуры. Затем она разбивает число на цифры, используя операции деления и остатка от деления. Далее программа проверяет, делится ли число на каждую из его цифр, сравнивая остатки от деления на каждую цифру с нулем. В конце программа выводит результат проверки. Если число делится на каждую из своих цифр, выводится сообщение "Число делится на каждую из своих цифр", в противном случае выводится сообщение "Число не делится на каждую из своих цифр".